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o 

r-i 
I 

OJ 

Pn 



g 

E-i M 
CO H 



C 

o 

•H 
P 

•H 1 

u 

O 
(0 

a 











0) 


P 












> 


3 












•H 


& 












P 


P 












Q) 


3 












Pi 


O 












& 


1 
P 








*^~N 




CO 


P< 






<""^ 


■X} 




P 


ft 






TJ 


a> 




g 


c 






<U 


X 




M 


M 


G 




K 


•H 


p 






O 




•H 


&H 


cd 


P 


P 


•H 


-p 


fc 




o 


G 


c 


W 


3 


V„ • 




H 


•H 


•H 


Pi 


ft 




■P 


*H 


O 


O 


CO 


C 


-P 





G 


PU 


a< 


> 


HH 


2 


P. 


C3 






C 




ft 


p 




ho 


t>0 


H 


g 




5 


1 


c 

•H 


c 

•H 


X 


U 






P 


P 


p 


•H 


tuO 


0) 


id 


id 


cti 


rt 


Pi 


o 


+5 


p 


o 


O 


o 


-P 


& 


5 


A 


EJ 


rH 


H 


2 



o 

•H 
•P 

b 

a 



-p 

cd 
o 

El 

$ 

•H 



a. 

CO 








a) 
1 


O 


o 


P* 


to 


t»n 


« 


q 


TJ 


-p 


■p 


id 
o 


1 



El 



c 
o 

•H 

P 

at 
H 
a) 



o 
o 



s 

w 
c 
o 

•H 
P 

id 

(S"^p 
_ c 

§ « 

■P >H 
CO Pi 
-P 



3 < 

G 

<D 0) 

id o 



a) 
© 
o 



3 



a) 

•H 



o 

■S 



K 
& 

a 

t-j 

D 

o 
-p 

X 

•H 
Pi 
-P 



■ ^ £ 



£ 



-P 
Pi 
0) 



O 
O 



G 

o 

•H 

P 

a) 
o 
o 



a) 
id 

Pi 
O 
P 

co 







rn> 


«**» 


O 


CN 


CN 


cn 


O 


W 






vO 


sO 


lA 


vO 


vO 


xO 


vO 


a> 




G 


CM 


UN 


CO 


H 


H 


C-- 


On 


g 


(0 
0) 


o 

•H 


o 
1 


O 

1 


o 

1 


•V 


OJ 
1 


OJ 

1 


<Y 


£ 


c 


P 


o 


o 


o 


O 


o 


8 


8 


pi 


■H 


id 


o 


o 


Q 


o 


o 


o 


P 


o 


8 


r*\ 


8 


On 


OJ 


OJ 


oo 


Pi 


3 

o 


3 


O 


o 


H 


OJ 


OJ 


■s 


Pi 


















CO 


£ 






















CO 


*te 












vO 




o 


X! 














• 




•H 


Pi 


§ 












OJ 




+> 


id 












H 




m 


■s 


P. 

faO 


_=t 


OJ 


i 


Pi 
S 


o 


1 


O 


•H 

p 


id 


o 


• 


• 


« 


• 


• 


• 


• 


id 


p 


A 


o 


H 


OJ 


UN 


_=r 


H 


CK 


-P 


CO 


H 


H 


H 


OJ 


OJ 


H 


OJ 


CO 



o 

•H 
P 

id 
o 

o 



*«fc. 



VfN 


c^ 


U, 


iH 


vO 


rH 


OJ 


OJ 


UN 


f^ 


CN 


0^ 


1 


1 


1 


o 


OS 


O 


o 


H 


o 


o 


CM 


t*\ 


f*N 


<*> 


«*> 



OJ 



<*> 



s 

H 
UN 

f"N 



PQ 



CM o 

© H 
W I 
0» CM 

fU Pn 



K 



G 
O 

•H 
-P 




T) 



u 



I 

O 
O 



■d a v o 
g -p ja -p 
a +> to 



c 
o 

•H 
P 
ciS 
H 
Q) 
«h 



0) 

P 



•O .p 

«H P O - 
© CO O CO 



p 










a 




Q 




\o 


cS 


C 
o 


5 




8 




•H 


O 




-? 


1 


P 


i 




i 




CD 


r- 


H 


•y 


to 
a> 


O 

o 


$ 


8 


$ 





V-3 


<*\ 


c*> 


m 


•H 










P 





















O 










u 










% 


=** 








to 


e 
cd a) 








3 


H H 
9^° 


\r\ 




o 


o 


5 








•H 
P 


to £ 








n 










•rl 










P 










a) 










-P 










to 















© 

u 



0) 



+ 
is 

CM 

+ 

CM 

55 



125 



+ 
S3 



+ 
55 



MD 

O 

8 8 



© 

CO 

1 

o 

•H 



o 

5 




a 
o 

$ 
a) 

H 
0) 



o 
o 



© 
(0 

i 



Est! 



O t-5 



at 
a) 



I 



CM 
MD 



0) 



M3 

CM 

3 



* * H ft! 



■P «M 



W 
fn 
O 

-P 

o 

a) 

Pp 

to 



a ©in 
<cSD 



o 
o 

CM 



S -d 



© 



55 

+ 

CM 
CM 



O 

CO 



I 

CM 
3 



t3 

O 
O 

© 



CM 

mD 

I 

8 

CM 
MO 



-P 
0) 
CO 

s 



© 
Eh 



<2 
sO 

CM 

MO 

I 
CM 

CM 
MD 



mo 

a> h 
bo I 

(4 CM 





T» 


















0) 


















f- 


















-H 


















p( 








P 










cr 








a 










v 








•H 


n 








« 




•-^ 




£ 


p 










• 


h0 
C 


^-% 


£P 







• 


<-*s 







•H 


bD 


•H 


Pn 




.0 






£ 


3 


•H 


P 
C* 


V 


• 


CO 


£ 




•* 


O 

n 


* . 


O 
H 


■a 


PL, 


bO 


o 




p 




1 


k 





• 


■S 


o 







a, 


n 1 




CO 


Pn 


i 




O 


S 


1 


p 1 


•0 


P 


•d 






IS, 


n 


•a ! 


rt 


•H 





CO 

ho 




bO 





1 


ifl 


« 


£ 


CO 


rt 




C 


E-i 


e-t 








K 


U 




•H 


s_^ 


v^ | 








•H 


3 




P 






< ^-"*«'*-S 






£ 


to 




O 
H 






i 

CM 1 


88 





8 


* 


1 

o 




U 
O 


6 


CM 1 

f\ 1 


IR12 
xui2 


M 

N 


S 


* 
O 

►J 


•rl 




«H 














■4-> 


















cd 




• 














p 

3 


f-. 


^ 














& 





Eh 















O 






tr\ 


V\ 


O H 


CM 


*o 


-^ 








H 


H 


CM CM 


CM 


CM 


CM 


tJ 




CO 


CM 


CM 


CM CM 


CM 


CM 


CM 


s 




vO 


Cr\ 


C\ 


t^\f\ 


C\ 


«n 


*»> 




T> 


















M3 














(S 




1 


• • 












P 


0) 


8 


V 

P 












« 


i3 





O 

S3 













Compumatix Statistical Subroutines 

Page it 
F2-130 



II. Operation; 



A) Load hex tapes A and Ba (See storage allocation A and B 
for tape contents). Note exception: 10. k i s not on 
tape A or Ba. 



B) Insert sample problem data tape in the typewriter and 
depress break points U and 8. Start the tape reading 
via a program input routine (10.0, 10.3 or 10.U). 
All start fill and transfers are on the tape. 



C) The computer will halt on the stop and transfer instruction 
(.0003000'). A start compute signal will initiate the 
computation (or B.P. # 32 could have been depressed). 



D) The program will proceed to the completion of the regression 
analysis and then stop in location U006 (XZ0000). 



E) A start compute signal will cause an entry into the sub- 
routine to compute the residuals, (Y-Ycal). The regression 
equation coefficients are stored correctly by the sub- 
routine that computes them in Floating Point and need 
not be entered before the first record of the original 
data is re-read. 



III. Format: 



A) Set carriage return stop at U. 



B) Set tabs at 12, 20, 28, 36, hh, etc. 
N + 1 tabs. (8 numbers apart). 



C) For very large problems the automatic C. R. must be used 
or all spacing tabs in program # 1 and 3 removed (See 
write ups) and a column type printout used. 
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D) Since break points separate every major phase of this 
group of subroutines, these spaces may be used for 
exits to heading printing operations or other calculations, 
without disrupting actual program steps. 



IV. General: 



A) The subroutine designates as "No. 2" (Scaling) 

has not been used in this sample problem since then, 
in general, special handling would be required in 
the residual computation. 



B) The subroutines were assembled except for locations 
3219-3223 and 1*006 by filling the following subroutine 
Lo on top of the previous subroutine L F . 
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FLOATING POINT DATA 

COMPUMATIX INC. 

SAMPLE PROBLEM STATISTICS SUBROUTINES ( FLOATING POINT ) 

5 006233' 

xz0003' no. of variables 

xzOOO£ ' no. of records 

xz6200' Lo. of record 

xzi|200' Lo. of A data matrix 

xzl200' Lo. of floating point 

xzl*201' Lo. of means 

xz6200' Lo. of standard deviations 

xzOOOO' Lo. of sq. Rij matrix 

xz6l32' Lo. of scale factors 

xz2800* Lo. of matrix inversion (29.0) 

XZI4I32 1 Lo. of coefficients of regression equation 

depress break points I4. and 8 for straight thru operation 
to the residual computation 

.0003000' 

data 

+006200 » 1 ■ ' k ' 1 ' -0000000 • ' 
+006200 ' 1 ■ 1 ' k ' 3 ' -0000000 ' ' 
+006200 ' 1 ' 3 ' 3 ' 2 ' -0000000 ' ' 
+006200 ' 1 ' 6 ' 2 ' 5 « -0000000 ' « 
+006200 ' 1 ' 8 " i; • -0000000 ' ' 
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DATA CONTINUED 














N 

.5000000 


01 


ZX-l 
.1800000 

ZX-l 2 


02 


zx 2 
.1300000 
zx x x 2 


02 


ZY 
.1500000 

ZX]Y 


02 






.1100000 


03 


.2500000 
zx 2 2 


02 


. 7100000 
ZX 2 Y 


02 










.1*500000 


02 


.3200000 
ZY 2 


02 


% 




x 2 




Y 




.5500000 


02 


.3600000 


01 


.2600000 


01 


.3000000 


01 






C xi 




<Tx 2 




<5"y 








.3006659 


01 


.11*96663 


01 


.11*11*213 


01 






r ll 
.1000000 


01 


r 12 
.9688981- 


00 


r iy 
.7996129 


00 










r 2 2 
.1000000 


01 


r 2y 
.6611*376- 

r yy 
.1000000 


00 

01 








Inverse of r^ Matrix 










.608!jM3 


02 


.1*7591*27 


02 


.1717131*- 


02 






.1*7591*27 


02 


.3900739 


02 


.1225603- 


02 






.1717131*- 


02 


.1225603- 


02 


.6623821* 


01 






PxL ■ 
.2592361 


01 


b xl 
.121931*1* 


01 


r ly.2 
.85531*12 


00 


^bxl 
.5222230 


00 


?x2 
.1850295 


01 


b x2 
.171*8361* 

bo 


01 


r 2y.2 
. 762I1686 


00 


<r bx2 
.101*9098 

<*"b0 


01 


R 
.9211*280 


00 


.5935385- 

°"EST 
.51*91*909 


01 
QO 


A 

R 
.8351*996 


00 


.38851*88 

A 

^EST 
.8688215 


00 
00 
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DATA - CONTINUED 

Data repeated for residual computation 

+006200 ' 1 " h ' 1 ' -0000000 • » 

.1000000 01 .1058073 01 .5807301;- 01- 

+006200' l'l'l;' 3' -0000000' ■ 

.3000000 01 .2277U17 01 .7225832 00 



+006200 • 1 ' 3 ' 3 ' 2 ' -0000000 ' ' 

.2000000 01 .29677^0 01 .9677398- 00 

+006200 ' 1 ' 6 ' 2 ' 5 ' -0000000 ' ' 

.5000000 01 .U877U06 01 .1225931; 00 

+006200 ' 1 ' 8 " k ' -0000000 » « 

.1;000000 01 .3819365 01 .18063U5 00 



3000-3215 



Floating Pt. 
A Matrix Prep 
Print & Float 



3219-3263 

Matrix 
Scaling 
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3300 


3515 


Calc. & Print 


X i ,<Tx i , 


r ij 


Floating 


Point 



3516 



t 



3606 



Convert 

Arij Matrix to 
Dr-ji Matrix 

(Modified) 



3607 



I 



3660 



Invert and 
Print Inverse 
Q rj^ -j Matrix 



Jl&2_ 



t 



)iQ05 



Calc. & Print 

Pxijbxi^^iy 
S bxi> b 0> R > S ) 
R, S 



14007 



I 



[qo6 



Calc. & Print 

(Floating Pt.) 

Y^cal^y-y cal) 



* 
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Floating Point Data 



END 
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TITLE; Least Squares Floating Point Triangular Matrix Preparation 



AUTHOR ; William F. Burggrabe 

Compumatix, Incorporated 

DATE ; August 28, 1959 



PURPOSE ; Given N records of n variables of the form 1, X,, X 2 , ... 

X n in floating point this subroutine will prepare the 
upper triangle of the least squares matrix. The matrix 
rows are stored sequentially in the following format: 

N, ZX-i j 2Xpj ... 2X. j ZX-i , ZX, X^j f . . ZX_ X j 
AAp y ... 2jAq ■**■„.$ • • * y r\ 

At the completion of the processing for N records, the 
matrix may be optionally printed out. 

RESTRICTIONS : 

1) Normal restrictions of 2U.0, 11.6 - 12.6 

2) No limit to the number of records provided no overflow 
is encountered; the number of variables is limited 
only by available machine storage. 

Required computational storage: 

Data L to L Q + n + 1 

Matrix L to L + (n + l) (n + 2) 

3) The following information must be supplied: 

6233 n 

623U N 

6235 L Record 

6236 L Q A Matrix 

6237 L Q Floating Point System 

i;) Data Format - see input 

5) Print Out - see output 

6) The records are not permanently stored. 
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GENERAL INFORMATION ON METHOD: 



Since little mathematical description need be given, a description 
of the program sequence will be outlined here. 

1) Initialization 

Clear the matrix storage area to zero 

2) Matrix Preparation 
N-records, n variables 

3) Optional print out of floating point matrix. 
(Transfer control up) 

A break point stop separates each phase of the operation, as well 
as the processing of each record. 

CODING INFORMATION 

A) Storage: Subroutine 2 tracks 16 sectors 

External storage as noted under restriction 3 and the following 



Computed 


6258 Ctr 

6259 Ctr 

6260 Temp 
(6261 n + 1 @ 29 
(6262 n + 2 @ 29 
(6363 (n+1) (n+2) @ 29 

2 


Data 


L to L Q + n + 1 


Matrix 


t. +n t. + (n+1) (N+2) 



o o 2 

B) Linkage and calling sequence: Since this is one of a group of 
statistical subroutines, location 6233 to 6263 have been re- 
served for initialization information and no calling sequence 
is required. 

Linkage R Lo + 215 
U Lo 

C) Input : As described under Restriction 3 and: 
Data format 

First record. 

+ PP Data Lo' 1' XL" X2' .....Xn' -0000000" 
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Following records. 

+ PP Data Lo + 1 Xi' X 2 ' ... X n ' -0000000" 

The leading "one" may be present in all records if desired. 
In this case all records have the same code word as the first 
record. 

D) Output: The computed matrix is stored sequentially beginning 
in the specified location. It may be printed out in floating 
point in the following format: 

... n 



ZX 

n 



ZX 
n 



N 


zx x 


zx 2 


tab 


zx| 


zx x 2 


tab 


tab 


ZX^ 



o 
tab tab etc. ... ZX 

n 



The tabs may be suppressed by changing Lo + 206 to T (Lo+207) 

or U(Lo + 1*7) 

Note: Transfer Control down exits from Print Routine 

E) Location of constants: 



L + 111 


1 @29 


+ 112 


3wwj (Mask) 


+ 113 


1 @ 3 


+ 119 


1 @ 29 


+ 121 


1 ® 29 


+ 203 


and delay 



F) The actual matrix preparation time is approximately: 

(n+1) (N+2) (1.30) + .031 (n+1) N = seconds compute time 
2 

+ Data read in time 

G) Program stops: 

Lo +39 BP k after initialization 
Lo + i;2 BP 8 after last record of matrix prep. 
Lo + 1S>9 BP k after each record, except last 
Lo + 2lU BP k after printing matrix 
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FLOATING POINT MATRIX PREPARATION 



Operating Procedure 



Prepare the data tape as per instructions under input and fill the re- 
quired storage locations 6233-6237 as under restriction 3. Insert the 
data tape in reader and transfer to the routine Lo or use a main pro- 
gram with the required linkage. 

After inialization a stop (BP k) in Lo + 39 will occur. Depression of 
start compute lever will cause the first record to be read, the neces- 
sary computation for that record and an exit to (BP h) in Lo + 159 prior 
to reading the next record. (This feature allows for machine stoppage 
on large problems) 

After all records have been processed, the program will halt on BP 8 in 
Lo + 1*2. If it is desired to eliminate the floating point matrix print 
out, depress transfer control before continuing the program. This causes 
a transfer to Lo + 211; (BP k) the end of the print sequence. (NOTE: De- 
pression of the transfer control switch during the printing operation 
will cause an exit from the print routine at the end of the particular 
line being printed) . 

A start compute signal will transfer control back to the main program. 
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SAMPLE PROBLEM FLOATING POINT A MATRIX PREP. 



006233' xz0003' no. variables 

006231* ! xz0005' no. records 

006235'xz6200* Lo. record 

006236* xzJjOOO » Lo. A matrix 

006237 l xzl200* Lo. floating point 



/ 



External Storage 



,0003000' transfer to matrix prep, data follows 



+006200 « 1 " k ' 1 ' -0000000 ' « 
+006200 1 1 « 1 « k > 3 ' -0000000 ' • 
+006200 ' 1 • 3 ' 3 ' 2 ' -0000000 ' ' 
+006200 ' 1 • 6 ' 2 « 5 • -0000000 ' ' 
+006200 ' 1 ' 8 » ' k ' -0000000 ' * 



s 



Data 



5000000 


01 


.1800000 


02 


.1300000 


02 


.1500000 


02 






.1100000 


03 


.2500000 


02 


.7100000 


02 










.1^00000 


02 


.3200000 
.5500000 


02 
02 



.HJUL urogram no. 
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0039 
BP h 



# 



Initilize Sub. 

0000-0030 



Clear Matrix 
Storage Area 
0030-0038 



Floating Point 
A Matrix Prep. 




Matrix 
Prep. 
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PREPARED FOR: 

LGP-30, RPC-UOOO Users' Organization - POOL 


PAGE OF | 
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fc 


/OB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 1 

Burggrabe 


'ROGRAM CHECKED BY: 

POOL Review 


OATE I 

U-29-S9 


p 


PROBLEM: 

Floating Point A Matrix Prep 


TRACK 

00 




PROGRAM INPUT CODES 


0. 


LOCATION 


INSTRUCTION 


a. 


h 

l/l 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | ADDRESS 




1 


1 


















/ 


x 













°,o,o 


, , X,B | 6,2,3 3 




n 












|0 | 1 


i , , A 0,1,1 a 




1 @ 29 












,0 ,2 


i i x . H 6 i 2 i 6 i 1 




(n+l)@ 29 












,0 ,3 


, , ,A 0,1,1 p. 




X 


1@ 29 


4- 








,0 |4 


, , X,H 6, 2,6 ,2 




(n+2) 29 












,0 ,5 


, , i,n , 6, 2,6 p. 




(n+1) @ 29 


fn+l)fn+2j @ 27 










,0 ,6 


, , iM, 0,1,1 3 




1 @ 3 


(n+l)(n+2) @ OQ 










,0 ,7 


i i x,c. 6, 2,6 3 




X 


(n+lHn+2,) 


2 
3! 2 9 




ri 










|0 |8 


, , X,B 6, 2,3 £ 




Lo Record 












,0 ,9 


. i iT. 0,1,0 3 




' 












|1 |0 


, , ,Y, 0,1,0 k 




•Init. Matrix 


Prep d 










,1,1 


i i ill 0,1,1 fl 




:i 




~iw 








|1 |2 


, , X, A . 6, 2 , 6 1 
















|l |3 


i , iTj 0,1,1 k 
















il 1 4 


i i Xi B 1 6 2 . "K 16 




Lo A Matri: 


: 










ll ,5 


i . iTj Q llOiS 




¥ 






1 








,1,6 


i i ,Y, 0, 1,0 ,6 




> Matrix Prep 


h | 








|1 \7 


. , ,T ■ Q 1,0 ,0 




J 












,1,8 


, , ,Y, 0, 0,3 ,2 




Clear 






« i i ! 






|1 1 9 


. , ,T ( Q0,U,9 




X 


Print 












,2 ,0 


, , X, A. 6, 2,6,3 




? 


§29 




i i i i i i i 






|2 .1 


, , X,C, 6, 2,6,0 




Matrix L„ +1 












|2 |2 


. , X,S| 6 2,3 iU 




No records ® 


29 










l2 I 3 


, , ,C, Q 1,2 ,0 




Xi 


Matrix Pre; 


) Ctr . 










|2 , 4 


, , X,B| 6, 2,3,7 




Lo Floating 


Point 










|2 i 5 


i i , Y - Q 1 , ,1 




"\ arith 






i i i i i i i 






|2 | 6 


i i ,Y, 0, 1,0,2 




J ~ 






i 






|2 ,7 


, , ,Yi Q 1,6,0 




/\/data in 




» 








|2 i 8 


, , ,Y, 0, 1,6,1 




J 


I 








|2 i 9 


, , iT, Q 0,1* i7 




1 Print 












,3 ,0 


, i iYi Q O1U18 




. 








i i i i i i i 






|3 i 1 


i , i B , °i 2, ,3 




X 


o 






FORM LP-IO 


X 


•OYAi H«acf. JUMII 
CARRIAGE RETURN 





Lur-ju cuuinij. bi-itti 
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F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

U-29-59 




PROBLEM: 

Floating Point A Matrix Prep 


TRACK 

00 




PROGRAM INPUT COOES 


a. 



h 
i/i 


LOCATION 


INSTRUCTION 


0. 



h 
i/i 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | ADORESS 




' 


/ 


















/ 


X 










, 


,3 ,2 


, , ,c,[ , , , ] 




Z area 












|3 | 3 


i i ,-B | Oi 0i3 i2 
















|3 | 4 


i i i A 0, 1,1 1 




1 @ 29 




• 








,3 | 5 


i i iT, 0, 0,3 |2 




X 






r ' ' ' 1 ' ' ' 






|3 | 6 


i i ,E. 0, 1,1 ,2 
















,3 | 7 


i i Xi S | 6i 2 1 6 i0 
















l 3 l 8 


i i iT. 0, 0,3 1 
















,3 , 9 


i i XiZ | Oi liiO i0 




X 














,4 | 


i i i R , 0, 1 1 2 ,2 




\ Matrix Pre 


P 










|4 | 1 


i i i U | 0, 1 , 6 ,0 




J Linkage 






1 1 1 1 1 1 1 






,4 | 2 


i i X,Z | 0, 8,0 ,0 








m 


1 

1 1 I 1 1 | | 






|4 , 3 


8,0 ,0 f . 0, 2,1 h 




X 


Skip matri 


jc Print 


w 








|4 i 4 


, , X, B , 6, 2 , 6 ,1 




n + 1 @ 29 












|4 i 5 


i , X, C j 6, 2,5 i9 




ctr 1 -*- ( 


n+1) 










,4 | 6 


[ i x i c 6 i 2 ,£ i 8 




ctr 2 -*» 












,4 | 7 


, , iR|[ .ill 




X 


F.P. linka 


?e 


i 


f 1 . 1 | 1 1 , 






,4 | 8 


, ■ ,u [ , , , ] 














,4 | 9 


, , ,B |t , , , ] 




n 

Z Xj^Xj 












,5 , 


, , I,P 0, 0,0 ,0 




jn 
Print Z X. 


h - 










,5 | 1 


, , X,E 0, 0,0 ,0 




X 


Exit F.P. 












,5 , 2 


i i .B, 0, 0,Ui9 
















|5 i 3 


, , ,A, 0, 1,1 ,1 




1 29 












|5 | 4 


i , |T | 0, o,U 9 


















|5 | 5 


, , X, B , 6, 2,5 ,8 




X 


ctr 2 














,5 i 6 


. i iA. 0, 1,1 ,1 




1 @ 29 












,5 i 7 


, , I|H. 6, 2,5 18 
















|5 i 8 


, i X,S| 6,2,5,9 




ctr 1 












|5 i 9 


, , ,T| 0, 0,Ui7 




K 






m 








|6 | 


, , I, p. l, 6,0 ,0 




cr. end of 


line 


v 


| 1 1 1 | 1 1 1 






|6 | 1 


i , XiCi 6 2,5 18 




ctr 2 -> C 












,6 | 2 


, i Xi B | 6 2 1 5 i9 




ctr 1 


(Line_aumher.) 










,6 | 3 


i . i u i °i 2 1 ° i° 


X, 








FORM LP-12 














X 


CARRIAGE RETL 


RN 


ML-tAl M-b.l J|'iS4 t X 



CONDITIO NAL STOP CODE 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


OATE 

li-29-59 


PROBLEM: 

Floating Point A Matrix Prep 


TRACK 

01 


PROGRAM INPUT CODES 


0. 

P 

in 


LOCATION 


INSTRUCTION 


a. 


(- 

10 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


I 


; 
















/ 


X 








0, 1,0 ,0 


[...,...] 




Lo A Matrix 








1 |0 i 1 


. . ,R, [. i i ] 












1 l<> |2 


, , .u [, , , ] 












I |0 |3 


■ , ,P,[, , ,] 




X 


1. 








1 |0 i 4 


i , iMj [, , , ] 




X 








1 |0 |5 


i i i A | [i i i 1 




z x^ 








1 i<> |6 


i i iHj [, , , ] 




k+1 J 
Z X.X, 








I i« \? 


, , X,E 0, 0,0 ,0 




X 


* J 








1 l« 1* 


■ , ,B, 0,1,0,5 












i 1 ,9 


i i |U, 0, 1,2 5 








, , 0,0, o' 0,0 ,0 ,8 


t 


1 l> |° 


[ , i 




Data Lo 








i i 1 i ' 


, , , , , M 




X 


1® 29 








1 |1 |2 


i i i , 3 , w i w <J 




Mask 








1 1 1 i 3 


l q o, o q 0,0,0 




1® 3 








i il i 4 


[.,,,,,,] 




Data L f + 1 








| |1 i 5 


i i i 8i 1 0|0|0 




X 


cr in hex 








i |1 l 6 


1 1 1 1 1 1 1 




delay 








l 1 1 l? 


i i . 8. \ 0,0,0 




(Hex) cr in 


hex 






1 |1 i « 


i i iU. Q 1,2,1 




Exit Path 




, ( | | ( ( 6 


i 


! |1 I 9 


...... .U 




X 


1® 29 








1 |2 i 


i i i l i i i 




-n® 29 








l |2 i 1 


, , , j , , ,u 




1 @ 29 & d€ 


lay 






I |2 |2 


. , ,u, I , , ] 




Exit Matrix 


Prep. 






1 |2 i 3 


■ i i 1 i i i 




X 










1 |2 i 4 


.,.;,.,■• 




1@ 29 








I i 2 i 5 


i i i A. q 1,1,1 




1® 29 








1 |2 i 6 


, i i Yj Q 1,0,5 












1 |2 i 7 


i i i Y| Q 1,0,6 




X 










1 |2 i 8 


i i i IJ| li Til 












1 |2 i 9 


i i i | i i i 












1 i 3 , 


i i i 1 i i i 












i |3 i 1 


. , i B. Q 1, 0,3 




X 






FORM l_P-l« 














X 


CARRIAGE RETU 


RN 


•or«i M-ict, J1JMII 



LCjP-JU COUINCj bMttl 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY. 

POOL Review 


h-29-59 


PROBLEM: 

Floating Point A Matrix Prep 


01 


PROGRAM INPUT CODES 


0. 




LOCATION 


INSTRUCTION q 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS £ 


1 


f 
















X 








0, 


1.3 ,2 


i i |A, 0, 1,1 ,1 ' 


1 @29 










|3 ,3 


, i . E | Oi 111 i2 ' 


Iwwj mask 










|3 |4 


, , , Y ! 0, 1 , ,3 ' 












,3 ,5 


, , ,S, Q 1,1 iU ' 


:x 


Data L r +1 




j 1 1 1 | 1 1 1 






|3 |6 


, , i T 0, 1 , ,1 ' 












|3 ,7 


, , iUj Q lili£ ' 












,3 ,8 


, , ,t, q 1,0,3 ' 












|3 ,9 


i , ,Y, Q 1,0 ,U ' 


:x\ 












,4 | 


, , iE, 0, 1,1 ,2 ' 


3ww.i mask 










,4 ,1 


1 i i U , Q 1 , ii ,2 ' 












I 4 I 2 


i i , S, 0, 1,1 h ' 












I 4 < 3 


I i i T 1 0, 1 1 fl ' 


:x 












|4 | 4 


1 i , U | 0, 1 , k ,8 ' 












|4 |5 


i , |B| Q 1,2 h ' 


1 @ 29 










,4 ,6 


, , , A, Q 1,0 ill 












|4 ,7 


, , i U, Q 1i3i8 


_E 






l 






,4 | 8 


, , ,B, QliOiO 


Lo A Matri 


X . _ _. ... 








|4 ,9 


i , iY, Q 1,0 ,6 












,5 ,0 


, i ,Y| Q 1,0,5 












,5 i 1 


, , , B Q 1,1,0 


'IX 


Lo Data 










.5 ,2 


, , ,Y| Q 1,0,3 


' Lo Data 










l |5 i 3 


, , ,Y| Q 1,0,1* 












|S |4 


I , , Bj Q 1,1,9 












|5 1 5 


, , , A. Q 1,2 ,0 


lK 


-N @ 29 










|5 i 6 


, i i Hi 1,2 ,0 












|5 i 7 


■ i i T | Q 1. 5 i9 _ 












|5 i 8 


, i , u. q i,i ,5 


' Exit Path 


—^ 








1 |5 i 9 


, , X, Zi iii ,0 


'X 


BP li stop 


after each record 


| , , , , i , , 






1 |6 i 


_J L 1 R|[ 1 1 1 1 




-<£- — 


. IL-here _ - - 


i i i l > i i 






,,6,1 


_j_l_lU4Ll_i_j_1. 




J!or Matrix prep portic 








l ,6,2 


1 

i i 21 i, q o, 0,0 


' Input dat< 








, i 6 , 3 


, , ,u, q 1,0,3 


lZ 






FORM LP-IZ 












X 


CARRIAGE RET! 


JRN 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

h-29-59 


PROBLEM: 

Floating Point A Matrix Prep 


TRACK 

2 


PROGRAM INPUT COOES 


0. 


i- 


LOCATION 


INSTRUCTION 


0. 

g 

in 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION AOORESS 


1 


/ 
















/ 


X 








°. 2 ,0 ,0 


i i i S 1 Oi 1 1 1 .1 




1® 29 








I 1 i 1 


i , X,H, 6, 2,S ,9 












I 1 ,2 


i i |S 0,1,1 ,1 




1@ 29 








1 1 ,3 


i i XiZ | Oi OiO iO 




X 


delav & 








1 |0 |4 


8, 0, 0,T q 2,1,2 




-> Exit Path 


finished last line 


! ( 




I 1° |5 


i i X, S, 6 2,3,3 




n@ 29 


(How many tabs) 






1 i" |6 


i , i T. q 2,0,8 












1 i« I 7 


i i iU| Q 0iiii7 




X 


Print next 


line of numbers 






1 L° I s 


i i X,P 2, li,0,0 




tab 








i |° I 9 


, , x, z . q o, o ,o 




delay 








1 l' |" 


i i . A. q 1,1,1 




1 @ 29 








i l 1 i ' 


i .i , U | °, 2 i° i 6 




X 










I 1 1 i 2 


i i X, P | 1 6,0,0 




cr. 








I 1 1 i 3 


I , Xi Z. Q 0,0,0 












i ■ 1 | 4 


i , x, z . q k, o ,o 




B.P. k stop 


after printing 






I M i 5 


, , , u, [, , , ] 




>^ 








> |1 |6 














1 1 1 i 7 














l |1 i 8 














1 )1 1 9 






X 










i |2 ,0 














i |2 .1 














I 1 2 | 2 














1 1 2 | 3 






X 










i |2 i 4 














i |2 t 5 














1 i 2 | 6 














I |2 i 7 






yd 










I |2 |8 














1 |2 i 9 


, 1 1 1 1 , 1 












I |3 i 


\ 












l |3 i 1 






X 






FORM LP-10 












/ 


X 


CARRIAGE RETU 
CONDITIONAL S 


RN 

rop CODE 


BOTAl MC»(t. J13&4 1 X 



POOL Program no. - F2-130 

2 



TITLE : Triangular Matrix Scaling 

AUTHOR : William F. Burggrabe 

~~ ~ Compumatix, Incorporated 

DATE: September h, 1959 



PURPOSE: Given a matrix in floating point of the form 

Y. Xo X 



N 



n 



J n 



X-, 



X l X 2 



X l X n 



x 



c l c n 



\ 



J Vl 



And 



scale factors 1, C^ G^ ... C n compute the matrix. 



N Z X n 



2 X n 



Z Xo z X, 

Z XtXo . . • . 



Z X 



n 



Z X x 
1 n 



Z X 



n 
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RESTRICTIONS: 



1) The following locations must contain: 

6236 Lo matrix 

6237 Lo floating point 2^.0 
62I4I Lo scale factors 

6261 (n+1) @ 29 - Matrix order 

2) The scale factors in floating point must be stored in the 
same order as the matrix components. 

3) Normal Limitations of 2I4..O, 11.6 - 12.6. 

k) All scale factors must be stored, (i.e.) Where a scale 
factor is unity it must be stored 

h 
(1 x 1 x N - N, 1 x C, x _±_ - X , etc. 

C l ^ 
CODING INFORMATION: 



A) Subroutine storage 


- I4I sectors 


External storage 


6236 
6237 
62la 
6260 
6261 


Lo A Matrix 
Lo. Floating Point 
Lo scale factors 
Temp storage 
(n+1) @ 29* 


B) Linkage 






R Lo + kO 
U Lo 







C) Input - the following must be stored in memory 

1) A Matrix in floating point 

2) Scale factors in floating point 

D) Output Scaled A matrix. Stored in the same location as 
unsealed matrix. 

E) Constants 

Lo + 30 XZ6363 Mask 
Lo + 31 1 @ 29 

F) Timing (n+l)(n+2) x .65 sec. 



#. 



From CI A matrix prep, routines. 



POOL Program no. 



F2-130 
2 



MATRIX SCALING 



I NIT. 
j /Floating Point Matrix 



(.Scale Factors 



Enter 
Floating Point 



Compute 
c xi x c xj x ? l *J 



c xi c xj 



Inc. Add 
i' = i + 1 



"T" 




Exit 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 1 

Burggrabe 


•ROGRAM CHECKED BY: 

POOL Review 


DATE 

U-9-59 4 


PROBLEM: 

Matrix Scale 


TRACK 

00 


PROGRAM INPUT CODES 


L 


LOCATION 


INSTRUCTION 


t 

h 
VI 


CONTENTS 
OP ADDRESS 


NOTES 


OPERATION ADDRESS 


-" l - J ^-| Ufc ** Ji " 


/ 


















X 








_o_, 


0,o ,o 


. .XiB |6i2 a 7 




Lo F. P. 










|0 ,1 


. . ,i,Oioai 














,0 ,2 


i i iT | o,o a. 2 














,0 ,3 


, ,X,B 6,2 3 6 




E 


Lo Matrix 


M , 


11111(1 






,0 ,4 


10013 
i i i 1 i i r 






M> 








,0 ,5 


i 'o o i 7 

i i i I i i r 














,0 |C 


■ .X,B J6,2^ I 




Lo Scale Fac 


iors 








,0 |7 


, , .T.o.op. V 




z 












,0 |8 


, . ( y ; , ^ 6 














|0 ,9 


X A '6 2 6 1 

i i i | i i i 




(n+1) @ 29 ■* 


L- +1 (Scale Factors) 










X T '6 2 6 
i i i 1 i i i 
















, , ,* I, . J 




z 


F.P. Linkaj 


g il 










, , ,n [, , ,1 






w 










, , ,PJI, . J 




2 X,X 3 












. , ^ Jc, , J 




ox, 




■ 








, ,X,U ,0,0,0 p 




E 


Ace ~*» Mvl 


-t. 










, , M,[, , J 




cx 1 


f 










, , fi |[. , .1 




CX, CLU 


■ X J 










, ,X,E 0,0 ,0 p 




Exit F.P. 












, , r* ,0,0^.3 




X 


Add of 2X t ] 


: j 








,2 ,0 


, , A|o,03 T 




1 @ 29 










i ■ 2 i 1 


, . ,* ,0,0,1 3 














|2 |2 


. . .1 JO.OJL 7 














i2 |3 


, , ,B ,0,01 k 




X 


Idd. of CX J 










i2 |4 


. i A |0,03 1 




1 @ 29 










|2 |5 


, , X ,0,0 1 k 














|2 |6 


i i |E .0,0 3 p 




Mask 










|2 |7 


. J/ 3 | 6 . 2 i 6 9 




X 


L^. +1 of 


CX's 








|2 |8 


. , ,T ,0,0 PL 1 




Loop 


1 








|2 |9 


. . . u | ° i° ? ? 














I <3 (0 


■ .X,Z ,6,3 6 3 




Mask 










i |3 i 1 


, ,X,Z ,0,0 p i 




XI 1® 29 




FORM LP-IO 














E 


1 CARRIAGE RETL 


RN 


»ov»l »••!<. 1)1141 > 



I = CONDITIONAL. STOP CODE 



LGP-30 CODING SHhtT 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPAREO BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

h-9-59 


PROBLEM: 

Matrix Scale 


TRACK 

00 


PROGRAM INPUT CODES 


EL 


t- 
Ul 


LOCATION 


INSTRUCTION 


d 



K 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


/ 













■— --- - 




/ 


X 








0,0 , 3 |2 


i i i B| Q li 6 






1 1 3 ,3 


i , , A ( Q q 3,1 






1 @ 29 


-"■■■ 






1 1 3 i 4 


i i I Y| li ii 










1 |3 i 5 


i i i I. Q Q li 6 




X 










I |3 i 6 


i , i e 9 Q 3, o 












1 I 3 i 7 


i i x i s i § \ 6 i ° 




loop 


_ _ .. 






1 ,3,8 


. i i T , 9 q i, i 






I i 3 | 9 


i i T i z i P k °i ° 




X 


BP k stop 


ifter scaling 






1 I 4 1° 


II L_\li 111 
















i I 4 1 ' 


1 1 1 1 1 1 1 














I I 4 I 2 


1 1 1 I 1 1 1 












i I 4 1 3 


1 1 1 1 1 1 1 


X 












I I 4 1 4 


1 X 1 _l 1 J I 












1 1 1 1 1 1 | 




1 I 4 1 5 


A i_ 1 1 i L J 
















i i 4 | 6 


1 1 1 1 I I 1 








1 1 4 .7 


1 1 1 | 1 1 1 


X 












l l 4 1 8 


1 1 1 1 1 1 1 














1 l 4 i 9 


1 1 1 | 1 I 1 














l |5 i 


1 I 1 1 1 I 1 









1 1 i 1 I 1 1 




1 |5 i 1 


1 1 1 | 1 1 1 


X 








1 |5 i 2 


1 1 1 1 1 1 1 












i |5 |3 


1 1 1 1 1 1 1 





— 








1 1 1 1 1 1 1 




1 |5 | 4 


1 1 1 1 1 1 1 








1 1 1 1 1 1 1 




1 |5 | 5 


1 1 1 1 1 1 I 




X 






1 ! 1 I 1 1 | 




1 |5 i 6 


1 1 1 I 1 1 1 






1 1 1 1 I 1 1 




1 |5 | 7 


_L 1 1 ^J 1 i 1 


— 


----- 






1 ! I I 1 I 1 




l |5 i 8 


L J_ J J 1 .. II 






1 1 1 1 I 1 1 




l i5 i 9 


. . 1 ..1 L — (-- -1 -L- L. .-. 


X 




1 

1 1 1 1 1 1 1 




1 |6 i 


. J_ J. 1 1. .1 1 1. 




1 

. .1 .. L_ L _.1_ .1 J_ _l. 




I |6 i 1 


1 1 1 | 1 1 1 


r 
i t i 1 i i i 




I .6,2 


1 1 1 1 1 1 1 


1 
i i i 1 i i i 




__L .. J« L.I.3.. 


111111! 


X 




1 

f-ORM LP-12 














X 


CARRIAGE RETL, 


RN 
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TITLE: 



AUTHOR: 



DATE: 



Calculation of means, standard deviations and 
correlation coefficient triangular matrix 

William F. Burggrabe, Jr. 
Compumatix, Incorporated 

September 23, 1959 



PURPOSE: Given a floating point A matrix as prepared by either the fixed 

or floating point A matrix preparation subroutine, compute the 

means, standard deviations and the all simple correlation co- 
efficients. 

n = Number variables 

N = Number records 

The Rij matrix replaces all cross product terms in the original 
matrix. The means and standard deviations (n values each) will 
be stored in the correct order starting in the Lo specified. Each 
value is printed out in normal floating point form as computed. 
(See sample problem). 

RESTRICTIONS : 

1) Normal restrictions of 21;. 0, 11.6 - 12.6 

2) Required computational storage 
mean Lo thru Lo + (n-l) 

(Tx Lo thru Lo + (n-l) 
A Data matrix 



Lo thru Lo + (n+1) (n+2) _i 

2 
A Rij matrix replaces all but first row of A data matrix 



3) The following information must be supplied: 



Location 6233 
6236 

6237 
6238 
6239 

6258) 

6259) 
6260) 

6261 



n @ 29 

Lo A data matrix 

Lo floating point 

Lo means 

Lo standard deviations 



Temp, storage area 



n + 1 @ 29 



Supplied by Compumatix, Inc. A Matrix Prep. Progs. 
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k) Output: 2JU.0 - 12.6 format 



GENERAL INFORMATION ON METHOD: 



The equations used are: 

Z I* 

1) 1. = i_ 



N 
2) Standard deviation 




3) Correlation coefficient 
Rij = 



2 X. 


i x i 




N 




-irr. 


*x 


<Tx. 



CODING INFORMATION: 



A) Storage - subroutine 2 tracks and 17 sectors 

Calculated storage as described above under 
"restrictions" 2 and 3 

B) No calling sequence required. 

Linkage (R Lo + 21 6 
(U Lo 

C) Input: None 

D) Output: Format of 21*. - 12.6 

All answers are printed as computed. The correct number of 
tabs preceeds the printing of each diagonal element of rij 
matrix (see sample problem). The tabs may be eliminated by- 
changing t[0209] in 0207 to u[0208] or u0127. 

E) Constants 0021; 1 @ 29 

0201 XZ6363 mask 

and areas mentioned under Restriction (3). 
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F) Timing: The approximate times including printing are: 
Means: 3 n sec. 

Standard deviations: U n sec. 

rij matrix: n(n+l) x 2.25 sec. 

Where n is the total numberof variables. 

G) Program stops: 

0051 Breakpoint 8 "X^ calculations complete 
0022 Breakpoint k ^ x \ calculation complete 

0215 Breakpoint 8 rij calculation complete 
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Flow Diagram 
Calculation of Means, Standard Deviations ^ and 
Correlation Coefficient Triangular Matrix 
Floating Point 



POOL Prog. no. F2-130 
3 



0000 



Init. 
Lo Fl. Pt. 



i f 0007 



Lo 



Init. 
, Matrix r c 
& First Z^) 



1 ; QQ17 



Init. 

(Means 
Standard 
Deviations 



I 



Floating Point 
calculation of 

X 1 =_±H & Print 
I N_ 



Inc. Add 
i + 1 = i« 




Floating Point 
Calculation 



<Tx 



±~i 



ZXi) 2 ,- ,2 



Inc. Add. 
i + 1 = i 1 




Yes 















BP 








U 












. 








i 












Floating Point 








calculation 












ZXiX- 


" - Vj 








n- N 






(Tx, cr Xi 




















Inc. Add. 








i + 1 = i 1 








/ , \ No 

/Test \ 






\ i ' = k+i/ 








1 Yes 










Inc. Add. 




Print 




j+1 = ji = i 




j ' -1 tabs 


1 


1 






/Test N. No 






Si 1 — . -i \ 










\ 


Yes 

1 






BP 
8 





















Exit 



u*ar**w VMunw ^ii».fci 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


■ROORAM CHECKED BY: 

POOL Review 


DATE 

li-20-59 


PROBLEM: ' 

Given: A Matrix; Compute & Print X 1 , <S^{ , Rij Matrix (F.P. ) 


TRACK 

00 


PROGRAM INPUT COOES 


f 


LOCATION 


INSTRUCTION 


in 


CONTENTS 
OP ADDRESS 


NOTES 


OPERATION ADDRESS 


■ 1 ' 


















X 








_Cj 0,0 ,0 


I X | B I 6 . 2 , 3 7 




Lo Floating P 


)int 








l0 ,1 


, , ,Y 0,0,3 ,3 




mean ) 










,0 |2 


i i |X 0,0,3 k 




y Hub 
mean J 










,0 ,3 


i i it. 0,0,5 5 




P 












,0 ,4 


i i ,Y. 0,0,5 £ 














|0 ,5 


i i ,T j 0,1,2 ,7 




ri.,1") . 










,0 ,< 


« . J. 0, 1 ,2 p 




> aub 

ri-i ' 










,0 |7 


i i x i b . 6 i 2 i3 j6 




F 


Lo A Mairi 


£ 








|0 |8 


i i J, °i°i3 |6 




mean] 










|0 |9 


i . J | 0,0,6 1 




<f | Lo of N 












i . iY j Oil i^ (1 




jci-i 












1 i |A , 0, 0,2 k 




X 


1 a 29 












i | |T. 0,0,3 5 




Lo first 


n 

Z(Xj ) (For mean) 










, , X,A . 6,2,3 3 




gives Lo firs 


n 2 










l i iT . 0, 0,6 P 




<y x., sub 












i i Ji 0. 1|3 2 




z 


rij) ,. 












, . J. Oi 1 ^ ,7 




ri.i J 












, , XiB j 6,2,3 3 




Lo mean 












, . ,T | OiOi? i7 




mean sub 












. i ,Y 0,0,5 ,7 




2 


Cx A ). sub 










i2 ,0 


i i J 0,0,5 ,8 




o-x, ! 










I 2 1 ' 


. i ill 0,1,2 Q 














.2 |2 


i . il| 0.1.3 (0 




rij j 










|2 |3 


, ,X,P|1.6.00 




X 


cr. 










|2 ,4 


. . X.Z| 0.0,0 i 




del ay & 1 & 


?Q 








|2 |S 


i i XiB j 6, 2 ,3 l9 




Lo standard d 


sviations 








|2 ,6 


. . J | 0,1,0 p 




<3* Xj sub 










I 2 ! 7 


. , ,T| 0,1,3 $ 




X 












|2 18 


, , ill 0,1,3 .6 














I 2 I 9 


i .X.B| 6.2.3 6 




Lo A Matrix 










,3 ,0 


, , X,a! 6, 2,6 1 




n + 1 @ 29 










,3 | 1 


i , XiC, 6, 2,6 ,0 




XI Mean L, +1 


to test out 


FORM LP-IO 












i 




CARRIAGE RETL 
CONDITIONAL. S 


RN 
TOP CODE 


HOVAi M««(C. J13MI K 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: [PROGRAM CHECKED BY: 

Burggrabe POOL Review 


DATE 

U-20-59 




PROBLEM: _ 

Given: A Matrix; Compute & Print Xp^i Rij Matrix (F.P. ) 


TRACK 

00 




PROGRAM INPUT COOES 


a. 


h 
in 


LOCATION 


INSTRUCTION 


0. 



K 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION J ADDRESS 




1 


1 


















1 


X 















JOj 


°,3 ,2 


i i l|P 1 li 6,0 p 




cr. 












|3 i 3 


, , ,R,[ , , , ] 




F. Point 












,3 | 4 


, , ,u,[ , , , ] 
















,3 | 5 


, , ,B,[ , , , ] 




X 


ZI 












,3 | 6 


i , .Dl[ , , , ] 




No. of rec 


ords 










,3 | 7 


, , |H,[ , , , ] 




. \ 












,3 | 8 


, , X,P 0, 0,0 ,0 




Print % 












I 3 I 9 


, i I|E | 0, 0,0 p 




Xi Exit Float 


ing Point 










,4 , 


i i i B . 0, 1 3 i7 




Add X i 












,4 , 1 


i i , A . 0, 0,2 ,U 




1 @29 






1 1 1 I 1 1 1 






I 4 1 2 


i i 1 1 | 0, 1 3 i7 










1 






| 4 l 3 


i i iB, 0, 0,3 $ 




X 


Add. E X< 












|4 | 4 


i i i A - 0, 0,2 .U 




1 @29 












|4 | 5 


i i |T| 0, 0,3 $ 
















,4 | 6 


i i i E | 0, 2 , ,1 




3ww.i mask 












,4 , 7 


i i Xi S | H ? 1 6 i0 




X 














,4 , 8 


i , ,T, q 0,3 ,3 




loop back 


n times 










l" i 9 


, , X, P. 1 6,0 ,0 




cr. 












,5 i 


. 1 X ! Z | I ° I I ° 




delay 












,5 , 1 


, , x,z q 8,o ,o 




X 


BP 8 stop 


after means 










,5 | 2 


i , X,B. 6, 2,6,1 




(n+l)@ 29 












i |5 i 3 


, i X, C. 6, 2,6,0 




Temp 1 (ct 


r) 










|S i 4 


, , x, p! \ 6,0,0 




A Matrix L 


f +l(set for crx i )(Temp 1 


) 








|5 | 5 


■ , ,R,[. i , 1 




X 


F.P. 












|S | 6 


, . .u,C , ■ , 1 
















|5 | 7 


, , .PJC , , 3 




*i 












|5 i 8 


, , ,M,[, , , ] 




X. 












|5 i 9 


i , I.H, 6, 2,5,9 




X 


Temp 2 


(hf 










|6 | 


, , ,B|[ , , , 1 




Z X ", 












,6 | 1 


, , i D|[ . i i ] 




No of recc 


rds 










,6 | 2 


i i X. s i ^ 2 i^i9 




X.2 












,6 , 3 


i i *. R i Q °i 0,0 


X 


V" 






FORM LP-12 














X 


CARRIAGE RETL 


RN 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

U-20-59 


PROBLEM: 

Given: A Matrix; Computes & Print I. , cr x± } Rij Matrix (F.P.) 


TRACK 

00 


PROGRAM INPUT CODES 


0. 



i- 


LOCATION 


INSTRUCTION 


IL 



1- 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION | ADDRESS 


1 


; 
















/ 


X 








q i,o ,o 


, , ,H,r , , , ] 




Standard De-v 


nation 






I |0 i 1 


i , X, P. Q OiOiO 




Print stand. 


Div. 






I i | 2 


i i X|E. q 0,0,0 












1 |0 i 3 


i i .B| q Oi5i7 




X 


Add. of X. 








1 |0 | 4 


i i i a . q o-| 2 ,U 




1 @29 








I 1 ,5 


i i |T| q 0,5,7 












1 i" |6 


i i , t. q o,5 ,8 












I t ,7 


i i |B. q 1,0,0 




X 


Add of tfV 


i 






I 1° I » 


i i , A, q 0,2 ill 




1 @ 29 








i 1° I 9 


i i iti mmin 








1 1 1 1 1 1 1 




1 I 1 |° 


i , IiBi 6 2,6,0 




Temo 1 (n+1. 


n,n-l,etc. ) 






i l 1 i ' 


i i iSi q 0,2 ,h 




X 


1@ 29 








1 1 1 i 2 


, , X,H 6, 2,6,0 




Temp 1 








I 1 1 i 3 


i i i A | q 0,6,0 




n 
Add. of Z X 


2 






i il 1 4 


i i i Y, q 0,6,0 






1 






| M i 5 


i i iB, q 0,2 ,u 




X 


1@ 29 








l |1 i 6 


1 1 x , s 1 6 I 2 1 6 1° 




Temp 1 (Test 


out when =1) 


1 1 1 | 1 1 1 




1 |1 l 7 


, , |T| q 0,5,5 




loop back 


(n times) 






1 |1 i 8 


, , X, P 1, 6,0,0 




cr. 








1 |1 I 9 


, i x,z q o,o ,o 




E 










I |2 i 


i , X, P 1, 6,0,0 




cr. 








i |2 ,1 


, , I, z , 0, 0,0 ,0 












I |2 |2 


, , i,z, q U|0 ,o 




Bp. k stop a 


fter m^ cal. 






1 |2 i 3 


, , X, B 6, 2 , 3 ,8 




X 


Lo mean 








1 |2 i 4 


, , X,A ( 6, 2,3,3 




n @ 29 








1 |2 i 5 


i i x i c | 6 , 2 i 6 ,° 




mean L* +1 


(Temp 1) 






1 |2 i 6 


i i x,c, 6, 2,5 ,9 




tab counter 


(Temp 2) 






1 |2 i 7 


, , ,R,r . . i i 




X 


F.P. 




1. 1 II 1 1 1 




1 |2 i 8 


. , , u ][ . . . 1 












1 |2 |9 


, , .Pit I , , ] 




i. 








I |3 i 


. 1 , M lt I I , ] 




X. 








i |3 i 1 


i i X,H. 6, 2,5 ,8 




X 


Temp 3 


(i,^) 


FORM LP- 10 














X 


CARRIAGE RETU 


RN 


•OVAL N«tl(, Jt3»4II 



I = CONDITION AL. STOP CODE 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

U-20-59 


PROBLEM: 

Given: A Matrix; Computes & Print X i} tX . Rij Matrix (F.P. ) 


TRACK 

01 


PROGRAM INPUT CODES 


L 


1- 


LOCATION 


INSTRUCTION 




1- 
in 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


1 
















1 


X 








1 3 2 


■ , ,B,[ , , , 




Z LL 








1 1 3 ,3 


. . ,D,[ , , , ] 




No. of re 


lords 






l 1 3 ,4 


i i X,S 6,2,5 j3 




Temp. 3 








1 i 3 1 5 


i , ,D,r , i , l 




X 


^ 








1 t. 3 I 6 


. . .D,[ , , , ] 




^xi 








1 I 3 1 7 


i i iH .[ i i i 1 




rij 








1 i 3 l 8 


1 
i i XiP | OiOiO 




Print ri.i 








1 [ 3 L 9 


i , X,E , 0,0,0 p 




X 


Exit F.P. 








1 |4 |0 


i i i B 0,1,3 2 




add Z X^X 


1 






1 I 4 1 ' 


i i |A , 0,0,2 k 




18 29 








1 L 4 1 2 


i i iY | 0,1,3 2 












i | 4 I 3 


i , ,Y | 0,1,3 ,7 




X 










1 1 4 | 4 


i , , B , 0,1,3 6 




add <5" . 








1 I 4 1 5 


i i |A - 0,0,2 k 




1 e 29 








i i 4 l 6 


i i i T , o, 1 ^ 6 












1 I 4 i 7 


i i iB , 0,1 i3 




X 


add X^ 








l i 4 l 8 


i , ,A | 0,0,2 h 




1 @ 29 








1 l 4 l 9 


, , ,1 , 0,1,3 P 












i |5 | 


i i ,E , 0,2 ,0 1 




3wwi mask 








1 |5 i 1 


i |X,S 6,2,6 p 




X 


mean L„ + 








l |5 i 2 


i i J | 0,1 ,2 7 




1 1 




1 i 1 1 1 1 1 




i |5 ,3 


, , iB . Oil ,3 £ 




add O^i 








1 i 5 | 4 


i , i A °i° i 2 1* 




1 @ 29 










I i5 i 5 


i , ,Y ■ 0,1 ,3 £ 




t 












1 |5 i 6 


i i ,Y | 0,1 ,3 6 












1 |5 i 7 


i , ,B 1 0,1 ,2 P 




add X: 








l |5 i 8 


, i ,A | OiO ,? )| 




1 @ 99 








1 |5 i 9 


i i ,Y | 0,1 ,2 9 




X 










1 |6 i 


i i t Y | 0,1 ,3 p 














1 |6 i 1 


i. i iE | 0,2 ,0 1 





3wwj mask 








1 l 6 _L 2 


i , x i s | 6 i 2 i 6 P 


mean L„ +'. 


L 






l |6 i 3 


, , ,T - 0,2 ,0 2 




X 






FORM LP-t2 














X 


CARRIAGE RETU 


RN 


mi i*i m hi i j i :is-> i k 
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J ">B NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


"ROGRAM CHECKED BY: 

POOL Review 


DATE 

U-20-59 


PROBLEM: 

Given: A Matrix; Computes & Print X., , ^ xi , Rij Matrix (F.P. ) 


TRACK 

02 


PROGRAM INPUT COOES 


0. 



1- 


LOCATION 


INSTRUCTION 


Q. 


h 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


1 


















X 








J} 2,o ,o 


1 1 1 U| 2il i3 




Exit Path 


— *- 








|0 1 1 


1 1 X, Z 6 3i6i3 




mask for e:> 


tract's 








|0 1 2 


1 1 Xi P, li 61O1O 




cr. 










l° 1 3 


1 i X,B, 6, 2,£|9 




X 


tab ctr) 










,0 | 4 


1 1 1 A, Q 0i2 ill 




1 @29 f 


increase tab ctr by 1 








,0 | 5 


1 , X, C, 6, 2,5,9 




\ 










l° l 6 


. 1 X, S. 6. 2,5 \9 




make ace. r 


egative 








,0 | 7 


1 1 1 T. q 2,0,9 




X 


print tab 










,0 ,8 


1 1 1 u . q 1 1 2 , 7 




Exit tab lc 


op 








1° I 9 


1 1 x, z 1 q o, ,0 




delay 










,1,0 


1 
, 1 X, P. 2, li, 0,0 




tab 










,1,1 


1 1 1 A, q 0,2 ,li 




X 


1@ 29 










1 1 t 2 


1 1 1 u, q 2,0,7 




loop 










1 1 [3 


1 , X, P, 1, 6,0,0 




cr. 










,1,4 


1 1 Xi Zi O1O1O 














|1 , 5 


1 1 Xi Z| 81O1O 




X 












,1,6 


■ > .u, r, , , i 














,1,7 
















,1,8 
















|1 1 9 






X 




! 








,2 , 
















|2 ,1 
















|2 | 2 
















|2 1 3 






X 












,2 , 4 
















|2 1 5 
















,2 , 6 


1 I 1 1 1 1 1 














|2 1 7 






X 












|2 1 8 


III 4 J 11 














|2 1 9 


1 

L 1 1 L 1 II 














,3 , 


1 1 1 1 1 1 1 














,3 | 1 


1 1 1 1 1 1 1 




X 






FORM LP- 10 














X 


CARRIAGE RETL 


RN 


KOTAl MOIII. Jt3*4 1 X 



POOL Program no. - F2-130 



TITLE: Convert triangular Rij matrix to a square Rij matrix -- modified. 

AUTHOR : William F. Burggrabe, Jr. 
Compumatix, Incorporated 

DATE: October 13, 1959 



PURPOSE : Given a triangular matrix as prepared by the subroutine "Cal- 
culation of Means, Standard Deviations and A Correlation 
Coefficient Matrix", convert the A correlation coefficient 
portion to a square Rij matrix with the initial location of 
A Rij equal to the initial location of the D Rij. This routine 
also sets automatically location 62^0 to the correct address. 



RESTRICTIONS : 

A) The Lo A Rij matrix = Lo DRij matrix 

B) The entire subroutine is in fixed point and will operate 
on both fixed and floating point format matricies, but 
will not operate on matricies in an extended range for- 
mat. 

C) External storage as on attached sheet. 



METHOD: The subroutine takes advantage of the symmetry of the matrix 
~~™ and sets cell ij = cell ji. A looping process builds both 

the row and column cells of the square matrix while stepping 

through the matrix from the bottom. 

CODING INFORMATION: 



A) Storage: 

B) Constants: 

C) Linkage: 

D) Stops: 

E) Timing: 



56 sectors 

Lo + 51 1 @ 2 
Lo + 52 1 ® 29 
Lo + 53 Mask 

R [Lo + ^] 
U [Lo ] 

Break point h at end of conversion 

Approximately n(n+l) seconds. 
~~B 
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PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKEO BY: 

POOL Review 


OATE 

10-13-59 




External Storage A — > O Rij Modified 


TRACK 

62 




PROGRAM INPUT COOES 


a. 



H 

1/1 


LOCATION 


INSTRUCTION 


Q. 


H 
U) 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION ADDRESS 




1 




/ 




















/ 


X 






. 










6 , 2 ,3 ,2 


















I 1 3 t 3 


, ,x,z t [ , , , ] 




n @ 29 


No variables * 










i |3 i 4 


















i |3 i 5 






X 












1 1 3 ,6 


, , I.ZjI , , , ] 




Lo A Data 


Matrix * 










I |3 i 7 


















1 l 3 i 8 


















1 i 3 i 9 






x~ 












1 I 4 1° 


i .I,Z,[ , , , 1 




Lo D ri.1 Matrix 










1 I 4 1 > 


















1 I 4 | 2 


















i , 4 , 3 






X 












1 I 4 i * 








Note: * These locations 










1 I 4 1 5 








must be filled prior 










i i4 i 6 








to entry into the 










I I 4 i 7 






X 




subroutine. 










i 1 4 i 8 


















1 i 4 i 9 


















l |5 , 








Note * : These locatior 


a 








1 |5 i 1 


1 1 1 1 1 1 1 




X 




normally filled by 










l i 5 | 2 








A Matrix Prep sub. 










l l5 i 3 












1 L_ .1111. 






1 |5 | 4 


















1 i 5 i 5 






X 














l 1 5 ,6 


















1 |5 i 7 


















1 |5 | 8 


r. ...... ] 
















1 |5 i 9 


r. , , | , , , i 




X 


Teitm storae 


e 










1 |6 i 


r, , , | , i , i 
















1 |6 l 1 


[. . . I . . . ] 




n + 1 @ 2? 


* y 










I |6 i 2 


















l |6 i 3 


[.I,,,,,] 




X 


(n+l)(n+2) 


@ 29 * / 




FORM LP-12 














X 


2 L 

CARRIAGE RETU 


RN 


HI .«l M 1., . JUSJ 1 X 





CONDITIONAL STOP COPE 



Lur-ju ^uuiitu 01 11-1.1 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: F 

Burggrabe 


>ROGRAM CHECKED BY: 

POOL Review 


DATE 

10-10-59 


PROBLEM: 

A Rij ->U Rij Matrix Conversion 


TRACK 

00 


PROGRAM INPUT CODES 


0. 


H 
in 


LOCATION 


INSTRUCTION 


a. 


h 
in 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION | ADDRESS 


; 'Lo 


1 














/ Lo 




X 








0j 


,0 ,0 


i ,X,B . 6,2,3 (6 




Lo A data Mat 


rix 








lO i 1 


1 > X ! A 6 , 2 ! 6 ! 3 




(n+l)(n+2)@ 


29 










|0 | 2 


S 0052 
i i i 1 i i i 




2 
1 @29 










,0 ,3 


1 ! . Y i °| | 1 I 7 




X 


B [ ] 


L.p A data matrix 








|0 | 4 


, , X,B j 6, 2,3 ,6 




Lo A data mai 


rix 








,0 ,5 


, , X, A | 6, 2 , 6 ,1 




n + 1 9 29 










,0 ,6 


, , X, C . 6, 2 , k ,0 




Lo A rij raatr: 


x & LoDrij matrix 








,0 ,7 


, , X,C 6, 2,6,0 




X 


Temp# 1 — 


*°] 








|0 ,8 


i , X, C 6, 2,5 ,9 




Tempi 2 — 


► \ Init. ctr's 








,0 ,9 


i . x i c i $ 2 i^i 8 




Temp # 3 — 


ro) 








,1 1 


. , X, B j 6, 2,3 ,3 




n @29 










,1,1 


i i X,N, 6, 2,3,3 




X 


n @29 










1 1 | 2 


i i iM. Q 0,5,1 




1® 2 — » 


- n 2 @ 29 








1 1 | 3 


, , X, A. 6, 2, JU ,0 




Lo D rid mat} 


'ix 








il i * 


i i iS, q 0,5,2 




1@ 29 


Lj> D rij matrix 








|1 i 5 


i i i T i Q o, X ,8 




X 


H [ ] 










,1,6 


i , , Y , 9 0,1,9 




C [ ] 










|1 |7 


, , ,B,[, , , ] 




rij A matrix 










,1,8 


, , ,H,r, , , i 




rij a (row) 










,1 , 9 


, , ,c[, , , ] 




X 


rij 0(Co: 


■ ) 








,2 ,0 


, i , B , 9 o, i ,7 




b r i 










i |2 i 1 


. , i s, q 0,5,2 




1@ 29 










|2 |2 


i , iTj Q 0,1,7 




B [ ] 




1 i i | i i i 






|2 |3 


, i i B. Q 0, 1,8 




X 


H [ ] 










,2 | 4 


i , i s i 9 °i 5,2 




1 @ 29 










|2 i 5 


, i i Ti Q 0, 1,8 




H [ ] 










,2 , 6 


, , X Y| 6. 2, 5,8 




Temp# 3 










i |2 i 7 


i , i B. Q Q 1,9 




X 


c [ ] 










I 1 2 i 8 


i i X S. 6 2, 3,3 




n@ 29 










1 l* |9 


i , , T, Q q 1,9 




c r i 










I |3 i 


, , i Ej 9 q 5,3 




3ww,i Mask 










i |3 i 1 


, , X, S, 6 2, 5, 8 




X 


Temp # 3 




FORM LP-IO 










1 


1 


X 


CARRIAGE RETC 
CONDITIONAL S 


RN 

TOP CODE 


RUTAL M*»tl, JUM! X 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY 

POOL Review 


DATE 

10-10-59 




PROBLEM: 

A Rij -*D Rij Matrix Conversion 


TRACK 

00 






PROGRAM INPUT COOES 


0. 



h 

l/> 


LOCATION 


INSTRUCTION 


a. 
O 

h 


CONTENTS 
OF ADDRESS 


NOTES 






OPERATION 1 ADDRESS 






1 


; 





















/ 


X 












Q 0,3 ,2 


1 , ,T| 0, 0,3 ill 




Test out 










1 1 3 1 3 


, , ,U, 0, Oil i7 






loop 
CJXI 












1 (3 1 4 


1 1 t B j 0. Oil ,9 
















1 l 3 1 5 


1 1 X, A , 6, 2,5 ,9 




X 


Temp 2 


0.1.2 n-1 


• 








1 I 3 1 6 


1 1 i Y , °i Oi 1 1 8 




H[ ] 












1 I 3 1 7 


, ,X,B, 6,2,5,9 




Temp 2 
1@ 29 


1 










1 l 3 1 8 


1 

1 1 1 A | Q 0,5 ,2 


rlnc. ctr. 2 










1 I 3 1 9 


, 1 X, C ( 6, 2,5 ,9 




X 


Temp 2 












1 I 4 1 ° 


1 1 X, B . 6, 2 1 5 18 




= old H[ ] 












1 I 4 | 1 


, , X, A ( ^ 2 , 6 ,0 




Temp 1 


0,n,2n. . .(n-l)n 










1 I 4 | 2 


1 1 iY| Q 0,1,9 


— 


cr 1 












. 1 4 1 3 


, , X,B, 6, 2,6 ,0 


X 


Temp 1 


h . _ _ 


• 








1 I 4 1 4 


1 , X, A, 6 2,3 ,3 




n® 29 


r Inc. ctr. 1 










1 J 4 I 5 


__i i^iHi 6 ! 




Temp 1 


T" 










1 1 4 1 6 


1 
1 1 1B1 Q Oil ,8 






HI 1 












1 I 4 1 7 


1 , ,E. 0, 0,5 ,3 


X 


3wwj 


Mask 


• 








1 1 4 1 8 


1 1 X, S | 6 2, ii ,0 




Lo O ri.i ma 


trix 








1 1 4 ,9 


, , , T| Q 0,5 ill 




test out 








1 I 1 1 1 | | 




1 |5 | 


1 , ,U| Q 0,1,7 




lOOD 3" 








,000 to 3 


1 


1 |5 1 t 


2,0,0 p q 0,0,0 




X 


1 @ 2 












1 |5 1 2 


,,,,,, ,li 




1 @ 29 












1 |5 1 3 


, 1 1 1 3, w,w,j 




Mask 












1 1 5 | 4 


1 1 Ii Z | Q I11 ,0 




BP k stoD a 


fter conversion 






1 1 1 1 1 1 1 




! |5 1 5 


1 , ,u,[, , ,] 


X 


Exit 








.000 'o Q' 


1 


1 |5 1 6 


1 1 1 j 1 1 1 
















1 |5 1 7 


1 1 1 1 1 1 1 
















1 |5 1 8 


1 1 1 1 1 1 1 
















1 |5 1 9 


1 1 1 1 1 11 . 




X 






• 








1 |6 1 


1 1 1 j 1 1 1 
















1 L 6 1 ' 


1 1 1 1 1 1 1 
















1 |« A 2 


1 1 1 1 1 1 1 
















1 16 1 3 


_!_...] J i 1 1 1 




X 










"ORM LP-12 


E 


»L.Al M-UM J11S4I « 

CARRIAGE RETURN 





POOL Program no. - F2-130 

5 



TITLE : Compute and Print Matrix Inverse 

AUTHOR : William F. Burggrabe, Jr. 
Compumatix, Incorporated 

DATE : April 2k, 1959 

PURPOSE : A) Initialize and transfer control to the matrix inversion 
routine (29.0) 

B) Printout the inverse if it is desired (transfer control up). 

RESTRICTIONS : 

1) Normal restrictions of 2i|.0, 12.6 and 29.0 

2) See attached sheet for external information that must 
be supplied. 

3) Output - 12.6 format 
CODING INFORMATION : 

A) Storage: 55 sectors and under two above. 

B) Linkage: R (Lo + $k) 

U (Lo ) 

C) Input: None 

D) Output: 12.6 format with a carriage return after each row. 
NOTE: Transfer control down skips printing to Lo + 5>J>. 

E) Constants: 

Lo + 28 1 @ 29 

Lo + 29 Ik® 29 

Lo + 30 XZ01i*9 

Lo + 31 1 @lk 

F) Timing: 

Inversion: Approximately 1.08 rr seconds 
Printout: Approximately 2 xfi seconds 

G) Program Stops: 

Lo + li? B.P. 8 inversion complete 
Lo + 53 B.P. k printing complete 

^Depression of transfer control before continuing causes a transfer to Lo + S3, 
thus eliminating the printing phase of the program. 
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PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY 

POOL Review 


DATE 


External Storage 


TRACK 

62 


PROGRAM INPUT CODES 




H 


LOCATION 


INSTRUCTION 


a. 


h 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION | ADDRESS 


1 
1 1 1 | 1 1 1 


/ 








/ 







1 1 1 1 1 1 




/ 


X 




II 1 1 1 1 






4 2,3 a 


1 1 I 1 1 1 1 


1 1 1 1 1 1 






-L__i_ 3 _I 3 


, ,x,z f , , ,] 


/ 




n @ 29 = Ma 


irix order * 


1 1 1 I 1 1 






i |3 |4 


-L 1- _L | 11 J 


/ 






... 1 1 1 1 1 1 






i ,3 ,5 


I i 1 | I I I 


/ 


x 




_L_J_..J | 1 1 






1 I 3 |6 


1 , J , I i I 


/ 












1 I 3 .7 


i |X |Z f | j i] 


/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 


...... 


Lo floating 


point ^ 


1 1 1 1 1 1 






I ,3 ,8 


—J L_J .(.. J J 1 

J_ .1. 1 | 1 1 L 






1 1 1 I 1 | 






1 I 3 |9 


X " ~ 




-__L. 1 1 1 1 1 






1 I 4 1 ° 


_l_jXjZ _f J L_.jJ. 

L 1 1 I L 1 L 




Lo D rii Mai 


;rix 


* 


1 1 1 1 1 1 






1 l< ■« 








1 < 1 1 1 1 






1 I* ,2 


j_ L X iZ f i i i ] 


T.n imsr'tiim 


L_a3ib__.29^il * 


1 1 1 | 1 1 






, I 4 |3 


. I -i l i i i i 


3— 


1 ! 1 1 I 1 






1 |4 | 4 


j i i i i j i 








1- 1 1 1 1 I 






1 1* |5 


1. i L l 1 l l 




Note: These locations 


-L 1 1 1 1 1 






i i4 i 6 


, L _L 1 , l j i 




must be filled prior 


. 1 1 1 | i | 






l .4 ,7 


L J 1 1 1 1 1 


X 





to entry into sub- 


L _L _..! 1 1 | 






i |4 i 8 


1 , I 1 1 1 1 






routine 


I J j 1 | | | 






l ,4 ,9 


1 1 i f 1 1 _j_ 


-— 






. J_ l 1 1 I | 






l ,5 ,0 


L .J I | 1 J_ L 






. J 1 1 1 l 1 






.,5,1 


1 1 l 1 1 1 1 


X 








l I I | | | | 






1 ,5 ,2 


1 1 1 1 L 1 I 


/ 






1 1 I j I i 1 






1 |5 |3 


1 
_J L ± J 1 1 1 


/ 


— 






- _J L. J. ^ L J_ J 






1 iS |4 


. I 1 1 1 1 1 | 








.iiii 1 i 1 






1 iS |5 


1 L J | ]__i 1 


X 








... i l i I i 1 | 






1 |5 i 6 


1 

1 I 1 | L O. 1 


/ 






l 1 1 I 1 i i 






1 |5 |7 


1 !__.. J 1 J_ J_ 1 


/ 






l i 1 1 i 






1 |5 | 8 


t 
1 . 1 X. .1 . J 1 L 


/ 


/ 
/ 
/ 

... 






_ -1 _1. 1 1 J i _L 






l i 5 ,9 


ii i_ i 4 l i i J 


X 


remp & Ctr 


_.... ._ 


r 

.....J _L_ L _1 L J L 






1 |6 i 


n i i i i j i i 


Temp & Ctr 


_ ... l. i_ _t. .. i l i i 






l .6 , 1 


_L L 1 1 J. 1 1 





1 i. - 1. _j L J. I 






l 16 , 2 


I 1 I 1 1 L i. 


L 1 1 | 1 I 1 






,,6,3 


1 l 1 | i l i 


X 


" 


FORM LP-IZ 










1 




V 


CARRIAGE RETU 


=(N 


" "" "''•""" 
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JOB NO. 


PROGRAM NO. < 

F2-130 


■ROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


l*-2l*~£9 




PROBLEM: , 

Call-in, Compute & Print - Inverse (Rice F. P.M.I.) 


00 




PROGRAM INPUT COOES 


0. 


r 
ifl 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION ADDRESS £ 




> P P 9 ! L ? , , 


; 














/ ,° P 9 , L ? , i 




X 










J0 l0 l0 


, , X,B | 6, 2,3 3 ' 


n @ 29 












|0 i t 


i , ,D 0, 0,3 I ' 


l ® iU 




• 








|0 ,2 


i , I, A 6, 2,1* ,0 ' 


Lo D rij matrix 








,0 ,3 


. i iCj Oi Oil iU ' 


:x 














|0 |4 


, , X,B 6, 2,1* ,2 ' 


Lo matrix Inversion Sub (Rice M.I.) 










,0 ,5 


, , ,Y. 0,0,1,3 ' 














,0 ,6 


, , ,A, 0,0,2,0 , 


XZ0011* 












,0 | 7 


, . , Y 0, 0,1 ,2 ' 


IE 














1° 1 8 


. i iA| Q 0,3 ,0 ' 


XZ0ll*9 












,0 , 9 


i , iY| Q Oil il ' 






• 








,1,0 


, , X,B. 6, 2,3 ,7 ' 


Lo Floating 


Point 








,1,1 


,,.*,[.,,]' 


IE 


(Matrix Inv 


ersion Lo + 163) 










1 1 i 2 


, , ,v, , J ' 


T> Matrix Inv 


ersion 










1 1 i 3 


, , iU, [, , , 1 ' 


J Ll 


nkage 










il l 4 


[,,.,,,] 


Code word 




• 








|1 i 5 


i i Xi Z | Q 8i i0 


3 


BP 8 stop 


after inversion 








,1,6 


i i X,C. 6, 2,6,0 


Clear ace. 




c 








l' |7 


8 q o, t q o, 5 ,3 


' Skip inverse 


print-out 


O O 








,1,8 


. , X, C 6, 2,6,0 


' ctr 1 -*~0 




orp 

S DIV. 

EW Y 








|1 1 9 


. i X, c 6 2,5,9 


r X 


ctr 2-*0 




o ? Z 








,2 ,0 


« i X , B , ^ 2 i 3 i 7 


1 Lo Floating 


Point ") 




cBe 

PROC 

HEST 








i |2 i 1 


, , ■ *, qo,3,2 






Init. 










|2 | 2 


i , i y i °, °|3,3 






Y Print 


03 a. 








1 |2 | 3 


, , x,b! 6, 2, U ,o 


lX 


Lo n Rij 11 


atrix inverse 










l |2 i 4 


, , J, q 0,3 iU 
















1 |2 | 5 


, , X, P. 3, 6,0,0 


' cr. 


— > 


/ 










I |2 i 6 


, i X, Z. Q 0,0,0 


' delay 




• 








1 |2 i 7 


, , ,u. q 0,3,2 


lX_ 


transfer o< 


er constants 








1 |2 | 8 


, , x, z, q 0,0,1 


' 1 @29 












l 1 2 ,9 


, , x, z ( q 0,1,1* 


' 11* @ 29 


(""t,o 4- -l6l in ■ 










1 |3 i0 


, , X Z| q i, U .9 


' Used to set i 


p [Rice F.P.M.I. 










i i 3 , 1 


i , x , Y i Q o, oo 


'X 


10 1* 






FORM LP-10 


.X 


CARRIAGE RETURN 
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JO) NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


U-2U-59 




PROBLEM: 

Call-in, Compute & Print - Inverse (Rice F. P.M.I.) 


TRACK 

00 




PROGRAM INPUT CODES 





LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION ADDRESS J 




1 


/ 










?e 








X 










-°_1 


,3 ,2 


, . iR |f i , i ' 




F.P. linka 










|3 i3 


i i ,U ,[ i I i ' 


•> 














l3 ,4 


, , ,b ,[,,,: ' 


No. to pri 


it 










,3 ,5 


, 1X1P | OiOiO ' 


_X 


Print No. 









I , 1 | 1 1 1 






,3 ,6 


i 1I1E | OiOiO ' 


Exit F.P. 












[3 ,7 


i i iB 1 0,0 ,3 h ' 


add. of no 


. printed 










,3 ,8 


1 
i i iA 1 0i0i2 8 ' 


1 @ 29 












,3 ,9 


i i iY | 0i0i3 h ' 


.3 














,4 ,0 


i 1X1B | 6i 2 |6 ' 


ctr 1 












I 4 ■' 


i i ,A 1 0|0|2 3 ' 


1 8 29 












I 4 I 2 


, ,I,H - 6,2,6 p ' 


ctr 1 






1 1 1 | 1 1 1 






i* .3 


i ,X,S | 6,2,3 3 ' 


_z 


n @ 29 












|4 | 4 


i . J, 0,0,3 2 


loop n tim 


3S 










.4 |S 


_j , X,P ,1,6,0 p 


cr. 












,4 ,6 


1 
i i X\c. | 6i? 16 


r.tr 1 -*» 


•) 










.4 ,7 


, i XiB | 6,2 6 9 


■X 


ctr 2 






1 ,,.]■■ ■ 






|4 i 8 


i i ,A | 0,0,2 8 


1 ® 29 












,4 ,9 


, , I,H | 6,2 ,5 9 


' ctr 2 












,5 ,0 


i iZiZ , 0,0 ,0 p 


' delav 












,5 ,1 


, ,X,S 6,2 ,3 3 


lE 


n @ 29 












.5 ,2 


i i ,T | 0,0,3 2 


' loop n tim 


3S 










i |5 i 3 


, , XiZ 1 OiUiO 


' BP h stop 


ifter printing 










|5 |4 


, , ,U f , , il 


' Exit 




— -- - - 










■ 5 1 5 


1 1 1 1 1 1 1 


'X 














.5 ,6 


1 1 1 1 1 1 1 








1 






,5 i 7 


1 1 1 1 1 1 1 














|5 ,8 


1 1 1 1 1 I 1 














i iS |9 


1 1 1 1 1 1 . .. 1 


'X 














1 |6 i 


1 1 1 1 1 1 J 
















i 16 i 1 


1 1 1 1 1 1 1 








1 1 1 1 1 1 1 






i 16 i 2 


1 1 1 1 1 1 1 








1 1 1 I 1 1 1 






i .6 , 3 


1 1 1 1 1 1 1 


lX 








FORM LP-li 




X 


CARRIAGE RETURN 





TITLE: 



POOL Program no. - F2-130 

6a 

Calculation of Beta Weights, Regression Coefficients; Partial 
Correlation Coefficient and Standard Error of the Independent 
Variables; the Constant Term (b ) and its Standard Error; the 
Sample Multiple Correlation Coefficient and Standard Error of 
Estimate; the Universe Multiply Correlation Coefficient and 
Standard Error of Estimate. 



AUTHOR : William F. Burggrabe, Jr. 
Compumatix, Incorporated 

DATE: May 26, I960 



PURPOSE: Given the inverse of the correlation coefficient matrix, the 
means and standard deviations of the variables; compute and 
printout the above. 

RESTRICTIONS : 

1) The last row and column of the matrix contain elements 
corresponding to the dependent variable. (Explanation 
under "Method"). 

2) Normal restrictions of 2iu0 and 12.6 

3) See attached sheet for external storage of information 
that must be supplied. 

h) 25. OR in 0900 



METHOD: 



A) Given a correlation coefficient matrix of the form: 



h 



R 



11 



R 



21 



R 



'31 



2 3 



R 12 R 13 
R 22 R 23 

R 32 R 33 



R 



■iy 



2y 



R 



3y 



Y 



R 



'yi 



V 



yy 



POOL Program no. - F2-130 

6a 



An inverse of the (Rij) matrix is computed yielding: 



X l X 2 



X l 



x 2 



i P21.3U ... ••• Pyi.23 

v l,23 ... I v 2,13 ... y V y,123 

, Pl2,3h ... 1 ... Py2.i3 

Vi,23 ... y v 2,l3,..y v y,l23 



P ly«23 ... _ P 2y,13 



v l,23 ... y V 2,13 ... y Vl23 



B) Where: 



1. The B's, Beta weights, are equal to the coefficients of the 
equation: 



Y 1_Y ^ (X-X) x 
<T Y Pl (T X1 


+ B 2 


(x-x) 2 

<3"x 2 


y-'- = Predicted Value 






P 1 = W3 .-• 







+ ^-1 o- x 



(x-x) n _i 



■n-1 



?2 = Py2,13 ... 
x^,y = means 
6~ X ^,CT *s tandard devi ati ons 

The B's are obtained by dividing each column element by the principle 

diagonal element in that column. 

NOTE: All B's for all multiple regression equations 

(i.e., 

are available in the inverse. 
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6a 



2. The regression coefficients are obtained from the beta weights 
as follows: 

b = y - xi °~y p ± - x 2 f>_ p 2 - x 3 £>_ 83 - ••• 

<5~xl <T X 2 " cr x3 

* F2 7 Etc. 

< 5 ~x2 



3. The partial correlation coefficients are obtained by: 

(Pab,cde • •• | / Pba,cde ... 

^a,bcde .../ \"b,acde ... 

r ab,cde ... — ■ — — ~ ~~ 



1 



va,bcde .../ \ b,acde .. 



However, because of the symmetry of the inverse, 

Pab,cde ... Pba,cde ... 

^a,bcde ... "b,acde ... 

Therefore, each partial correlation coefficient may be obtained 
by dividing the corresponding off principal diagonal element by 
the square root of the product of the row, column elements of the 
principal diagonal. 

i|. Standare error of regression coefficient — 



s bi = S. 



N 



( 1 - r iy,123 ..J 



N<7 i (1 - R 1,123 ... } 



5. The regression multiple correlation coefficients for the n 
equations are computed as follows: 

R =1 1 

a,bcde 



or — 

R 



ath diag. element 



v y,i23 



Etc. 
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6. The standard error of estimate is: 



{ 



(T Ml -R 



7. Universe multiple correlation coefficient — 



R = 



1 - (1-R 2 ) 



N-l 
N-n 



Universe standard error of estimate — 

S = 



'J <l42) (^l 



C) The program that has been written assumes the dependent variable 
cells to occupy the last column and/or row. However, a routine 
could be written for any other designation, or since the program 
does not alter the inverse, rows and columns could be interchanged, 
to put the correct elements in the proper locations for this pro- 
gram. 



CODING INFORMATION: 



A) Storage 

B) Linkage 

C) Input 

D) Output 
Order : 



3 tracks 10 sectors plus external storage on attached sheet. 

R (Lo + 309) 
U (Lo ) 

None 

12.6 - format (See sample problem) 

Pi j b l> R ly,2 •** S bl C * R * 
p 2 , b 2 , R 2y) i ••• s b2 G - R - 



etc. 
Bn-1, bn-1, Rn-ly,l 



Tab b 



o 



Tab 



'bO 



C.R. 
C.R. 



/v. 

S 



C.R. 

R, , S , R , 

E) Constants Lo + 226 1 @29 

Lo + 21*0 1 @2 

Lo + II4.8 Floating point "1" 

F) Timing: Approximately 10 n seconds 

G) Stops: Lo + 308 B.P. I4 stop at completion of program 
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PROBLEM: 

External Storage 


TRACK 

62 


PROGRAM INPUT CODES 


tL 



h 

in 


LOCATION 


INSTRUCTION 


Q. 


h 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION | ADDRESS 


1 

1 1 1 1 1 1 1 


1 












- --— - - 


1 I 1 1 1 1 1 




X 









1 1 1 1 1 1 1 




6 2 ,3 ,2 


1 1 1 1 1 1 1 


/ 




1 1 1 1 1 1 1 




I |3 i 3 


i i X, Z |[ i i |] 


/ 
1 


n @ 29 or 
n @ 29 nc 


der of inverse * 
. of records * 


1 1 1 | 1 1 1 




i 1 3 | 4 


i i X| Z .I i | J 


1 1 1 1 1 1 1 




1 l 3 i 5 


1 1 1 1 1 1 1 




X 






1 1 1 I 1 1 1 




1 l 3 | 6 


1 1 1 1 1 1 1 


1 
1 
1 

1 








1 1 1 1 1 1 1 




1 1 3 ,7 


_i LLlZ\[ j l.. il_ 


Lo Float! 
Lo means 


ng JPoint .... . . # 


1 1 1 I 1 1 1 




1 l 3 i 8 


i i XiZ|[ i j i] 


1 1 1 1 1 1 1 




1 j 3 ,9 


_.J J Jfll |.f 1_..L J . 

i i X| Z ,[ i i |] 


V 


Lo stands 


rd deviations * 


1 1 1 1 1 1 1 




1 I 4 1 ° 


Lo invers 


e ( □ rij matrix) 


1 1 1 1 1 1 1 




1 I 4 1 ' 


i i i j i i i 


1 






1 I 1 I 1 1 1 




1 ,4 ,2 


L L i III L 


1 
1 
1 
1 
1 

1 






1 1 1 I 1 1 1 




i l 4 i 3 


_1 __1 Xj_? ,[ L j ,1 


X 


Lo regres 


sion coefficients # 


1 1 1 1 1 1 1 




1 [4 ] 4 


J. 1 1 i 1 1 1 


■H- 








1 1 1 1 1 1 I 




1 |4 | 5 


J 1 1 1 1 L 1 






. I 1 1 | 1 1 1 




i i 4 1 6 


1 1 1 1 1 1 1 


Note: Th 


ese locations must 


_ L II | ...J L_ 1 




1 |4 | 7 


1 1 1 1 1 1 1 


X 


be filled 


prior t 


o entering 


- i I 1 J 1 . 1 i_ 




l i 4 i 8 


1 1 1 1 1 1 1 




into subr 


outine 


1 
. 1 1 1 1 1 1 1 




1 l 4 i 9 


1 1 1 1 1 1 1 


1 
1 
1 
1 






1 1 1 I I I I 




l |5 i 


1 1 1 1 1 1 1 








1 

. i i i i i i i 




1 |5 i 1 


1 1 1 1 1 1 1 


X 






_ . i i i | i i i 




l |5 i 2 


1 1 1 1 1 1 1 






i i i i i i i 




i iS |3 


F 1 1 1 1 1 1 1 1 


1 
1 
1 
1 


— 






. _L _L__L _|_ J L J_ 




1 |5 | 4 


[ 1 1 1 1 1 1 l] 




- - - 


1 1 1 1 1 I 1 




1 |5 | 5 


Li 1 1 1 1 1 1 J 


X 




... .1 1 1 1 1 1 | 




l |5 | 6 


Li i i | i i i J 






1 I 1 1 1 1 1 




1 |5 | 7 


1 1 1 1 1 1 1 1 1 


1 
1 

1 
1 
1 
1 






t 
1 1 1 1 1 1 l 




1 I s i 8 


Li -i . i 1 i i i ] 


Temn... . 


_ - 


t 1 1 I | 1 1 


. 1 1 5 i 9 


Xl 1 -i |_ ..L _J J ]._ 

Xl 1 L 1 1 J lJ 


X 


TemQ 


1 ...1_. _L 1 L. .1 I. 


— 


1 |6 i 


Temp 

_._._n+_i@._2 




- .-L._ 1 1 1 1 J. l__ 

__J 1 1 1 1 1 1 


_L_iL_Ll. 
. 1 .6 |2 


Xl__L J. 1 ..1 _..i ...l] ... 

___L .. . 1.. .J_. \- L__l. 1 ._.. 
1 I 1 1 1 1 1 


2__ _*__. ___ 


. -J 1 _ II 1 1 1 




__i .6 t3 


X 




t OHM L P- 12 














X 


CARRIAGE RETl 


RN 
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RPC-iiOOO Users ' Organization - POOL 


PAGE OF 

1 / 
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JOB NO. 


PROGRAM NO. 1 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

1-15-60 




PROBLEM: . A 

B xi , b xi , Partial Corr. Coeff, S hxi , b n , & est, R, (Test, R, <T est 


TRACK 

00 




PROGRAM INPUT CODES 


D. 


h 
w 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 






OPERATION | ADDRESS Jj 




1 




1 




















X 












0, 0,0 i 


, ,X,B , 6,2,3 3 ' 


n@ 29 














lO i t 


, ,X,N 6,2,3 ,3 ' 


n@ 29 














i° i 2 


i i |M . 0, 2 iU P ' 


10 2 














,0 | 3 


i i |S ■ 0, 2,2 6 ' 


X 


1@ 29 














,0 | 4 


i i XiA , 6i2iU |0 ' 


Lo a Matrix 


Inverse 












l° 1 5 


1 ! I Y | °l °l 6 I ' 


Add[l/Vj 














i° l 6 


, , x i B , 6 i 2 |3 3 ' 


n@ 29 














,0 | 7 


i i iS I Oi 2,2 ,6 ' 


:x 


1@ 29 














1° 1 8 


, ,X,H .6,2,5 h ' 


Temp ctr 














1° 1 9 


i i XiA | 6i 2iU i0 ' 


Lo a Matrix 


Inverse 












,1 ,0 


, , ,Y, 0,1,1,7 ' 


k -hA„ 














,1,1 


i i , x 0, 1 , 3 ,X ' 


X 
















1 1 (2 


i , XiB | 6. 2,U .0 


Lo D Matrix 


Inverse 














1 1 i 3 


i , iTi 0, 1,2 ,7 


Add l/V i 














, 1 ,4 


, , X,B 6, 2,3 ,9 


Lo cT's 














|1 i 5 


, , iT, 0,1,2 ,3 


•X 


Add [o-Xi ] 














,1,6 


i , , Y , °i ^ i° 


II 














,1,7 


, , ,T. 0, l,i|,l 


1 II 
















,1,8 


, , X,A 6, 2,5 ,U 


' n-l@ 29 














,1,9 


, , ,T, 0. 1.1.2 


LX 


Add Kxl 




- 












,2 ,0 


i i ,T. Q 1,2 ,2 


i M 












i |2 i 1 


, . ,Y| Q 2,5 :2 


' M 














|2 |2 


i i X,B, 6, 2,U|3 


' Lo Reg. Coe 


ff 










,2 | 3 


, , , Y , °i 2 ,3 1 


lX 


Add [b ] 














l |2 i 4 


, , .A, °, 2 , 2 , 6 


i 1 @29 














,2 i 5 


, , i Y °, ! , 2 A 


/ Add [b xi ] 














l |2 i 6 


i i iT. Q 2,1,0 
















1 |2 i 7 


, , X,B, 6, 2,3,8 


lX 


Lo means 






I I 1 1 1 , I 








1 |2 | 8 


, , ,Y. q 2,0,9 
















l |2 i 9 


i , x,A 6, 2,5 ,U 


' n-l@29 














1 |3 i 


■ , ,Y| q 2,2,9 


' Add Y 














i |3 i 1 


i i X,B, 6, 2,3,7 


L X 


Lo floating 


point 




FORM LP-IO 










^ 


CARRIAGE RETURN 


ftte, J 1344m 





LGP-30 CODING SHEET 



PREPARED FOR: 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY 1 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE I 

1-15-60 




PROBLEM: A A 

Pxi» b xi> Partial Corr. Coeff., S bxi , b Q , & est, R, T est, R, <~ est 


TRACK 

00 




PROGRAM INPUT CODES 


_ 



h 
i/> 


LOCATION 


INSTRUCTION 




h 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | ADDRESS 




1 


1 








/ 














X 










_Q_jO ,3 ,2 


i . iT| Q 0,5,7 










,3 , 3 


ii iY| 0. Oi* 18 


/ 
1 
1 






" 










,3 | 4 


.1 _L_Ll f _Cl.ltLl5_ 












,3 | 5 


, , ,Y, q 1,1,6 


X 




Ii 








l 3 1 6 


, , ,Y| Q 2,0,7 


1 
1 
1 

1 

1 
1 


Ki 














|3 | 7 


j_l L i f q.„2 L o,8 














,3 , 8 


, i |Y| q 2,2,7 




- 










,3 | 9 


_L_L_iY_j Q_2l2i8.. 














,4 , 


__ J I i T| 2i U il 





- . - 










|4 | 1 


i i i Y| Q 2, li,2 










I 4 1 2 


i_i i_If.Q.2_.__._8.. 






• 


1 1 1 | 1 1 I 






,4 , 3 


A_i_xl+ a_2i.li?.. 


1 

1 

1 
1 


X 












|4 i 4 


_i__i_i.B 4 _<_ 2,3,-1 
i , i S, Q 2,2,6 


N @ 29 
1 @ 29 




- — 










|4 | 5 












,4 , 6 


, , XjR, Q 9,2,5 




Float 


25. OR 










|4 i 7 


i i X U| 9i 0,0 


X 






• 








,4 | 8 


i , X Zj Q Q 2,9 


1 
1 
1 

1 
1 
1 












|4 | 9 


,, XC, 62,5,7 


n-l 













,5 , 


i , 3? B, 6 2, 3,U 




n @ 29 










|5 i 1 


, i IS, 6 2 3,3 


X 


n @ 29 












,5 | 2 


, , X R, 9, 2, 5 




Float 


25. OR 










i |5 i 3 


i i X U| 9, 0, 














|5 | 4 


, i X Zj 9 Q 2, 9 




... 










|5 | 5 


, , X C, 6 3 5, 8 




X 


N-P 










|5 i 6 


, , X C, 6 2, 5, 3 


1 


Temp -> 












|5 | 7 


i i i R| [ i , i J 


1 


21*. 












I 5 1 8 


, i i U| [ i ' i ] 


1 
1 

1 
1 
1 
1 
















|5 i 9 


i -l.j_.-B, 1 In 8 


X 


IIT^II 












,6 | 


■ . i H [. i . ] 




1/Vn_._ 




• 








,6 | 1 


, i X Hj 6 2 5i 9 


.(I... 2 ) 


_ 




1 1 1 1 1 1 1 






L 6 | 2 


_i_i JLq__.Lil..5 1 l 




.111111 






i |6 i 3 


■ , X, H 6 2 5,8 


X 


(l-R )/( 


N-l) 




FORM LP-12 


^ 


CARRIAGE RETURN 





LGP-30 CODING SHEET 



PREPARED FOR: 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

1-15-60 


PROBLEM: 

P v1 , b v1 , Partial Corr. Coeff. S Wi , b n , & est, R, <T ext, R, <r est 


TRACK 

01 


PROGRAM INPUT CODES 




h 
Ifl 


LOCATION 


INSTRUCTION 


a. 


t- 


CONTENTS 

OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 




/ 


















/ 


X 










0,1,0 ,0 


, |X,U | 0,0,0 ,0 




Acc -*• M 










1 1 | 1 


, , X,M 6, 2 ,5 ,7 




(n-1) — 


A O 

(1-R 2 ) 








I 1 ,2 


, , X,Y 0,0,0 ,0 




A £ 

Change signs-*- -1+R 








1 ,0,3 


i i iA j 0, l,ii 8 




X"l" — 


A 2 
R^ 








1 1 ,4 


i , X,H , 6,2,6 ,0 














I ,0 | 5 


i 1X1B | 6. 2i5 .7 




N-1 










1 i° i* 


i i iA j 0,1 ik a 














1 1 ,7 


i i X,H . 6,2,5 $ 




X 










1 1° l» 


i I XiU | 0i OiO 














1 1° 1 9 


, , X,M . 6,2,5 ,8 
















, , X,R 0,0,0 ,0 
















, , X,U , 0,0,0 ,0 




X 














, , ,M,[ , , , ] 




<r 


A 

<f est 


1 1 1 1 1 1 








i ,X,H 6,2,5 ,8 




- — it 












i i X,E , 0, 0,0 




Exit 


F.P. 


' 








i i iR |T i i i 1 




X 


2k. 










i il i 6 


i . ,U|, i . , 1 














i |1 i ? 


i , ,P,[ , , , 1 




-pA n 










1 il i 8 


, |I,M ( 6,2,5 ,9 




V 




1 1 1 1 1 1 






1 |1 | 9 


, , X,Y . 0, 0,0 ,0 




X 


Change sign 




L J 1 1 1 I 






1 |2 ,0 


, , X,P. 0, 0,0 ,0 




Print B, 










i i2 i 1 


, | X,U . 0, 0,0 ,0 




Acc -*- M 










1 i 2 i 2 


I . iM |T i , ,1 




X? 










1 |2 i 3 


, i ,D,r ,i,l 




X 


CFXa 










i ,2 , 4 


i i iH |T ■ , il 




b Y1 










I |2 ,5 


, , X,P 0, 0,0 ,0 














1 |2 i 6 


i i iB| 0,1,14^ 




"1" 










1 |2 i 7 


. i . r> |C i , , ] 




E 


1/Vi 




- J i i 1 1 1 1 






1 |2 i 8 


i i X,H| 6, 2,5 ,7 




(l-H,) 










l |2 , 9 


, iX.M| 6,2,5 ,7 




Pi'Vi 










1 |3 , 


i i X|U, 0, 0,0 ,0 








i i i 1 1 i i 






1 |3 , 1 


i , ,Mj[ , , , 1 




X 


-PiAi 


-Piy'Pyi 


FORM LP- 10 














s? 


CARRIAGE RETU 


"°'«l H«. lt , JI3J4IH 

RN 



LGP-30 CODING SHEET 



PREPARED FOR: 

LGP-30, RPC-liOOO Users' Organization - POOL 


PAGE OF j 

U /7 1 


1 


JOB NO 


PROGRAM NO. F 

F2-130 


■ROGRAM PREPARED BY: 

Burggrabe 


POOL Review 


1-15-60 j 


P 


PROBLEM: A A 

p v1 , b v ^ , Partial Corr. Coeff, S bxi , b , & est, R, «T est, R, <T est 


01 




PROGRAM INPUT CODES 




h 

VI 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | AOORESS jjj 




1 


/ 


















X 










0_L 


1 ,3 ,2 


■ 1 I 1 T | 0,0 l 0p ' 














|3 i 3 


, , X,H ! 6i2iS 6 ' 


2 

riyxxx 


Partial 










|3 i 4 


1 | YiR | Oi OlO ' 


V 


riy xxxx 










,3 | 5 


i i Xi P | OiOiO ' 


_E 




i» 








I 3 | 6 


■ , ,B , 0, 1,1* JB ' 


it^L tt 












|3 i 7 


i i XtS | 6i 2i5 6 ' 


^ 2 












|3 i 8 


i i XiDi 6i 2i5 i7 ' 


d-Rh 












I 3 i 9 


i i IiDj 6i 2i5 6 ' 


_XJ 


N 












,4 | 


i i iD,r i i il ' 


<r Xi 












I 4 i 1 


, , ,D ( [ , , ,] ' 


d~x ± 


(l-r^/Ntf- (1-R2) 










|4 | 2 


, , XiR. 0, 0,0 ' 


•>r- 


vir 4 


ft 








i 4 i 3 


i i XiUi 0, 0,0 ,0 ' 


„x 


Ace ->M 


i 


P 








|4 | 4 


, , X,M, 6, 2,5 ,8 ' 


A 

<T" est 












|4 | 5 


, , I, P. 0, 0,0 ,0 ' 


Print 


. ( s bjdJ 










|4 i 6 


, , X, E . 0, , ,0 














|4 , 7 


, , X, P 1 X, 6 1 |0 


'IE 






» 


> i° P 9 i °i° i° I 


1 




|4 i 8 


^ q o,o o, o,o ,2 


F.P. "1" 


& delay t 








|4 i 9 


. . .B ! 0,1,1,7 


' Add [-p.,/ 


'n] 










,5 , 


, , X,A. 6,2,3 ,3 


' n@ 29 












,5 , 1 


,,,!, 0,1,1,7 


lE 














,5 ,2 


, , .I, 0,1,3 PL 














i |5 i 3 


, , .B | 0,1.2 3 


' . Di'TiyJL 












|5 | 4 


, , ,Aj 0,2,2,6 


/ x@ 29 




- 










1 |5 1 5 


, , ,T| 0ili2 i3 


lX 














i |5 i 6 


, , ,Y, 0,1,1^,0 














1 |5 | 7 


, , ,T, 0,1,11,1 














l |5 i 8 


, , ,B | 0,1,2 h 


' H[b xi l 












| |5 t 9 


, , ,Aj 0, 2,2 ,6 


IE 


1® 29 




ft 








| |6 i 


, , iT| 0, 1,2 iti 






' 


P 








l |6 i 1 


, , , B | Oi 1 , 2 ,7 


Dfl/Vi 1 












1 |6 i 2 


, ,XA | 6,2,6,1 


1 (n+l) @ 


29 










i |6 | 3 


, i ,y, q i. 2 .7 


IX 








FORM LP-12 












x 


urn m tin J 1 m 1 I 
CARRIAGE RETURN 





LGP-30 CODING SHEET 



PREPARED FOR; 

LGP-30, RPC-UOOO Users' Organization - POOL 


PAGE OF 

5 It 


JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

1-15-60 


PROBLEM: A A 

P ri , b n , Partial Corr. Coeff. S bxi , b Q , & est, R, <T est, R, o est 


TRACK 

02 


PROGRAM INPUT COOES 




h 
i/i 


LOCATION 


INSTRUCTION 


a. 

K 
i/l 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


; 


















X 








°, 2 ,0 ,0 


1 1 X , B | 6 ! 2 |S I 3 




ctr 




1 1 1 1 1 1 1 




1 1 , 1 


1 , , A | 2 ! 2 I 6 




1 @ 29 




1 




1 1° I 2 


i i x ,H 6 i 2 i£ i3 




ctr 








1 |0 i 3 


. iliS| 6,2,5 h 




X 


n-1 @ 29 








1 1 ,4 


i , ,T. 0,1,1 5 












1 1° 1 5 


i i XiCi 6, 2,5 3 




ctr 








1 i° i 6 


, , X, C | 6, 2,5 6 




Z area 








1 1° I 7 


, , ,R|[ , , , ] 




X 


21*. 








1 1° I 8 


, . ,u,[ , , , ] 












i 1° 1 9 


, , ,p,[ , , , 1 




X 








1 l 1 1° 


i i iM ( [ , , , ] 




b-vn 








i I 1 i ' 


i .i XiAi 6, 2,5 6 




X 


z 








1 |1 |2 


i , x,H. 6, 2,5 ,6 




z 








I i 1 i 3 


I i XiEi 0, 0,0 ,0 




Exit F. P. 








i ,1 i 4 


i i , B 0, 2 , ,9 




P [x,] 








1 |1 |5 


i i i A | °, 2 1 2 i 6 




X 


1 @ 29 








i |1 i 6 


i i ,Y, 0,2,0 £ 












i i' |7 


, , iB | 0, 2,1 ,0 












1 1 1 i 8 


i i .A, 0,2,2 ,6 




1 @ 2£ 








I i 1 l 9 


i i ,Y, 0i 2,1 ,0 




X 










1 |2 |0 


i i X,B| 6 2,5 ,3 




ctr 








I |2 il 


, , i A | 0i 2 , 2 16 




1 @ 29 








1 i 2 | 2 


i ■ XiH | 6 SiS rt 




, . c_tr 








I |2 i 3 


, , XiS| 6 2,5 h 




X 


(n-1) @29 








1 |2 i 4 


, , i T | 0, 2 , ,7 












1 |2 i 5 


i , X, P | 2, LiO ,0 




tab 








1 1 2 ,6 


i , X,Z | Q 0,0 ,1 




1 @ 29 & de 


lay 






1 |2 i 7 


, . ,R,[ . . . 1 




X_ 


2U.0 








1 |2 i 8 


, , ,u,[ , , , 1 












l |2 i 9 


, , ,B,[ , , , ] 




Y 








1 i 3 , 


i i x,S | 6, 2,5 ,6 




Z 








_! i 3 I > 


i , , h | r ,,,i 




X 


b 




FORM LP-IO 














X 


CARRIAGE RETU 


RN 


dorAL M = »it, Jt 3&4 1 X 



LGP-30 CODING SHEET 



PREPARED FOR: 

LGP-30, RPO-UOOO Users 


1 Organization - POOL 


PAGE OF 

6 / 7 


-1 


JOB NO. 


PROGRAM NO 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


1-15-60 


M 


PROBLEM: 

R . , h . , Partial Corr. Coeff 


A A 

, S hv1 , b n , & est, R, T est, R, 6 est 


02 




\ MfS.- 5 X4r^ , 

PROGRAM INPUT CODES 


0. 



t- 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | ADDRESS J 


1 
,1111 1 1 


/ 











- - 









X 








Q 2,3 ,2 


, ,X,P| 0,0,0 p ' 






_l |3 ,3 


, ,I,B , 6,2,5 £ ' 




N 










,3 ,4 


, ,X,R | 0,0,0 p ' 




VT 


1 1 1 1 1 1 1 






,3 ,S 


i i XiH | 6i 2i5 5 ' 


..X 






II 


1 1 1 1 1 1 1 






,3 ,6 


i i XiB | 6i2i5 8 ' 


A 

fT est 




"ii 
1 


1 1 1 1 1 1 1 






|3 ,7 


i i I,D| 6i 2i5 5 ' 




Vn 




1 1 1 I 1 1 1 






.3 ,8 


, , I,E . 0,0,0,0 ' 


Exit F.P. 







1 1 1 1 1 1 1 






.3 ,9 


, ,X,P ) 2.U.0P ' 


..X 


tab 




,,0,0,0 0,0 ,0 i 


' 




,4 , 


2,0,0 9 | 0,0,0 p ' 


1@ 2 & dslay 


1 1 1 1 1 1 1 






,4 ,1 


i i |R it i i J 






1 I 1 1 1 1 1 






i* |2 


j i ,u,[ , , ,] ..' 






1 1 1 1 1 1 1 






i« i 3 


i iX,P| 0,0,0 ,0 ' 


:x 


S ax 




1 1 1 1 1 1 1 






|4 |4 


^_jJ±*jA.zJ-1 _ 


1-R 2 










|4 |5 


Lj i ,S, 0,1,1; ,8 


11]^ II 










,4 ,6 


X ,X,Y, 0,0,0,0 




change si 


gns R 


1 1 1 1 1 1 1 






|4 ,7 


t 

i_X X L R l Ql °i° 1° 


X 


V" 


R 


1 1 1 1 1 1 1 






,4 , 8 


, , X, H , 6, 2,5 ,7 




R 










|4 ,9 


, , X, B , 6,2,5,9 





1-R 2 




1 1 1 1 1 1 1 






.5 ,0 


, « X, R ( 0,0,0,0 


AT 




1 1 1 1 1 1 1 






,5 ,1 


i i X, U, Q 0,0,0 


'X 


Ace -^ M 










|5 ,2 


, , ,M,[ , , ,] 




cTy -^ 


6 est 





1 1 1 1 i 1 1 






i |5 i 3 


, , X,H| 6 2,5 i9 


<T ext 




1 1 1 1 1 1 1 






|5 |4 


i i XiEi Q 0, ,0 












|5 l 5 


, , X, P . 1, 6, ,0 


■X 


cr. 




1 1 1 1 1 1 1 






i i5 |6 


i | I, Z 1 Q 0, ,0 






1 1 1 1 1 1 1 






1 i5 i 7. 


_L_i_XiPj_i.6 L 0jg__ 


' cr. 




-- 


1 1 1 1 1 1 1 


_._ 


_l__ii_jJ_ 
l |5 ,9 


r 

L_J_. J-R|I L .... 1 ll 

_L... J_ A V 1 1 L...1 . ll 

„a._lA_^ ^.2i.?.,7... 

l .L..XiP|.._Q o t o,o 




L L 1 1. 1- 1 1_ 


■X 




Print 
Print 


Ill ± _L 1 J . 





_L_i6_LiL. 


' R 
' | crest 


.__! U. 1 ..-(-. 1... L J . 

- 1 1 1 1 1 J !.__ 

I 1 I I 1 1 l 


__i _i«_iA. 


i i XlB^. $ 2,5,9 

, i X, P| Q 0,0,0 


i i 6 i 3 


•_x 




FORM LP-12 












X 


CARRIAGE RETl 


JRN 




ll ■> 4 t X 
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":<JB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

1-15-60 


" H ° BLEM p v . , b Yi , Partial Corr. Coeff, S bxi , b Q , & est, R, crest, R, fc est 


TRACK 

03 


PROGRAM INPUT CODES 


a. 


1- 


LOCATION 


INSTRUCTION 


0. 

h 
l/l 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


; 


















X 








^,0,0 


, , X,B . 6, 2,6 ,0 




R2 










|0 i t 


, ,X,R 0,0,0,0 














,0 ,2 


i i XiP, Oi OiO ,0 








l 






|0 1 3 


i i X,B | 6 2,5 |8 




X 


CTest 










,0 | 4 


, , X, P 0, , ,0 














,0 | S 


i , X, E | 0, 1 ,0 














,0 ,6 


. i XiP. li 6i0 i0 




cr. 










,0 ,7 


. i XiZ, Oi OiO iO 




X 


delay 










,0 |8 


i | X,Z , 0, UiO ,0 




stop 


BP. k 








1° I 9 


i . ,TTi[ i . i 1 




Exit 




fc 1 






,1,0 










f 1 | 1 1 1 






,1,1 


1 1 1 1 1 1 1 




X 






1 1 1 1 1 1 1 






i 1 | 2 


1 














I 1 I 3 
















|1 I * 
















|1 i 5 






X 






*!!!]!!! 






,1,6 
















|1 i 7 
















,1,8 
















,1,9 






X 












,2 ,0 
















|2 ,1 
















|2 1 2 
















|2 1 3 






X 












,2,4 
















|2 i 5 
















|2 , 6 










1 1 i . . i , i 






|2 1 1 






x~ 






* 






,2 , 8 


I 1 1 1 1 1 1 










i i i i i i i 






|2 i 9 


1 1 1 1 1 1 1 






i i i i i i i 






,3 , 










i i i i i i i 






|3 i 1 






X 






FORM LP-tO 












X 


AOTAL M««(C, J13&4I X 

CARRIAGE RETURN 



POOL Program no. - F2-130 

7a 

TITLE: Calculation of Y and (y-y 1 ) given a set of coefficients 
~ ~ and a set of records. 

AUTHOR : Allen G. Renz 

Compumatix, Incorporated 

DATE : October 6, 1°£° 

PURPOSE: To read in a set of records, each record containing values 
. ^ ^ ^^ ^ ^ ^ ^^ ^ ^^ calculate a predicted value 

of Y-.Y , using a set of coefficients stored in the machine 
also calculate (y-y ) and print out Y]_ Y , and (y-jr 1 ). 

RESTRICTIONS : 

A) Normal restrictions of 2U.0, 11.6 and 12.6 

B) Coefficients must be stored in machine prior to reading 
the first record, in order (i.e. bQ, b x ^, .... b xn ) 

C) The program requires one track 

D) The number of variables is limited only by machine storage 
available . 

CODING INFORMATION : 

A) Storage 

1) Program - one track 

2) F.P.I.S. - 16 tracks 

3) External storage - 6232 to 6263 (see attached sheet) 

B) No calling sequence is required. 

Linkage: R (Lo + 57) 
U (Lo + 00) 

C) Input is in 11.6 floating point input format in the 
following sequence: 

First record 

± P (Lo record)' l 1 X-^ X 2 » ... X n ' Y' -0000000" 

Following records 

± P (Lo record + 1)' X-^ X 2 » ... X n ' Y' -0000000" 



POOL , .-ograra no. - F 2-1.30 

7a 



D) Output: Output is in floating point format. Three 
columns are printed out: Y, Y-'-, and (y-yl). 

E) Location of constants: 

Lo + U6 1 @ 29 

Lo + 63 XZ6363 Mask 

F) Timing: 

[(7 + 1.2n) sec. + record read time] N 
where n = No. variables 
N = No. records 

G) Program stops: 

Lo + 1j7(B.P. lj)after print out of each record 
Lo + 56 (B. P. 8) after completion of N records 
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7a 



External Storage Required 
Y 1 and (y-y 1 ) Floating Point Calculation 



6233 - n, No. of variables @ q = 29 

623U - N, No. of records @q = 29 

6235 - Lo of record 

6237 - Lo of Floating Point Int. System 

621+3 - Lo of Coefficients 

6258-6260 - Temporary storage 
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F2-130 

7a 



Calculation of Y^ and (y-y ) 







Initialize 


11 


Data 


Input 



-<J 



Calculate 



Zxb = y 1 



0-< 



Test for 
End of Record 




Test for 
End of data 
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SOB NO. 


PROGRAM NO. 1 

F2-130 


■ROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

10-5-59 




PROBLEM: r . , 

Calculation of Y' & (Y-Y 1 ) [Floating Point] 


00 






PROGRAM INPUT CODES 


0. 


H 
in 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 






OPERATION ADDRESS £ 






5,°,°,° JLq , , 


/ 
















/ P Q 0, ,Lq , | 




X 












_P_i 


0,0 |0 


, ,X,B | 6,2 ,3 $ ' 


Lo Record 














|0 , t 


i , ,Y 0,0,2 jL ' 
















,0 ,2 


, ,I,A 6,2,3 3 ' 


n @ 29 


Lp record 












,0 ,3 


. i J ,0,0,3 6 ' 


„E 






• 










,0 | 4 


. . ,*:°,°,5p ' 
















,0 ,5 


, , X.B j 6.2.U ^ / 


Lo Coeff . 














,0 ,6 


, , J, 0,0,2 2 , 
















,0 ,7 


, .I.BJ 6,2,3 ,7 i 


:z 


Lo Floating 


Point 












,0 |8 


. . J, 0,0,1 ,7 ' 
















,0 ,9 


, , ,1,0,0,10 ' 
















,1 ,0 


. , iY | 0,0,3 3 ' 






• 










,1,1 


i.i iY, 0,0,3 h ' 


:x 
















i . , Y . 0, , 6 ,0 




















i , ,Y, 0,0,6 1 ' 


















, , X, C | 6, 2 , 6 ,0 


' Ace -^ 
















, , X, S | 6, 2,3 iH 


lZ 


N@ 29 




• 












, , X, C . 6, 2 , 6 ,0 


r _N@ 29 














, , i,R| r. , . ] 
















,1,8 


, ,x,u| [, , , ] 
















,1 | 9 


, , x, i q o, o ,o 


lX 
















,2 ,0 


■ , x , c , ^ 2 ,*. 8 
















i i2 , 1 


, ,x,p, C, , , ] 


' x. 














|2 ,2 


. , X , N | t, , J 


i bx^ — *- 


Z bx in Ace. 












I 1 2 | 3 


, x, e q o, o o 


lX_ 
















i |2 i 4 


, i ,B| Q 0,2,2 
















1 |2 i 5 


, a q o, U ,6 


i 1 @29 














1 |2 , 6 


, , iY. Q 0,2,2 
















i |2 ,7 


, i , B. q 0,2 ,1 


iX 






a 










1 1 2 i 8 


, , ! A | 0. , ^ , 6 


i 1 @ 29 




w 










l 1 2 ,9 


, , ,I| 9 0,2,1 










i i i 1 i i i 






1 |3 | 


i i i e. q 0,6,3 


' xz 6363 








i i i | | | | 






i |3 , 1 


, , ,s, q o,5,8 


•XI 






k 


FORM LP-10 


g. -j. 10m ««iti. J 1 3ft 4 1 x 

\/1 CARRIAGE RETURN 
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JOB NO. 


PROGRAM NO. 

F2-130 


PROGRAM PREPARED BY: 

Burggrabe 


PROGRAM CHECKED BY: 

POOL Review 


DATE 

10-5-59 


PROBLEM: 

Y» &(Y-Y') Floating Point 


TRACK 

00 


PROGRAM INPUT COOES 


0. 



i- 
i/i 


LOCATION 


INSTRUCTION 


•o 
h 
l/l 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 
1 1 1 1 1 I 




; 


















/ 


X 










0,0 l3 ,2 


i i iT | 0, 0,6 ,0 














1 |3 ,3 


i . X,R,r i i i ] 














, .3 ,4 


i i x,u ,[ , , ,1 








J_ 1 1 1 1 1 






1 |3 ,5 


i ,X,H 6,2,$ jB 




Xr 











, ,3 ,6 


, , X.B^ , , , 1 




Y 




1 1 I I 1 | 






1 |3 ,7 


i i XiP , 0, 0|0 p 






Print Y 








1 ,3 ,8 


i i IiS | 6i 2i5 8 




Y» 










, ,3 ,9 


i i X,H ! 6,2,5 9 




X (Y-Y') 










1 I 4 I o 


i i IiB | 6, 2\K ft 
















. |< i' 


i i X,P , 0, 0,0 p 






Print Y' 








1 .4 |2 


, , X,B ( 6,2,5 9 








._] 1 1 | 1 1 






, I 4 |3 


i iTipi nin,nn 




X 


— — 


Print (Y-Y 1 ) 








1 |4 , 4 


i , X,E | 0, 0,0 ,0 














1 |4 |5 


I i XiP, 1, 6,0 ,0 














i ,4 l 6 


i , X, Z , 0, 0,0 p. 














1 |4 ,7 


, , X,Z , 0, U|0 ,0 




X 


Stop after 


print out 


- 1 1 1 1 1 | 






l ,4,8 


, , X,B| 6 2,3 ,5 




Lo record 










. ,4 ,9 


i , iY, 0, 0,2 ,1 








1 J LI 1 1 1 






l ,5 ,0 


, ■ X,B ( 6, 2,k,3 




Lo Coeff . 










l ,5 ,1 


i i ,Y Q 0,2 ,2 




X 












I |5 ,2 


i i X,B| 6 2,6,0 














i .5 ,3 


i , i A | Q Oik ,6 














1 15 |4 


i , X, H| 6 2,6,0 














1 i5 |5 


, , .Tj q 0,1,7 




z 






1 1 1 1 1 | | 






1 |5 |6 


, , X z, q 8,0,0 




Stop after 


N records 








l ,5,7 


, , i TI | [ i i i 1 




Exit 










1 |5 i 8 


i ] 




Lf Record 






l ,5 ,9 


1 1 1 1 1 1 1 




X 






1 J 1 1 1 1 I 






1 |6 | 


1 lplf,.,.,J 














1 |6 |1 


, , XiUjt , , , ] 


__ 


— - 






_ L_ 1 1 1 1 1 | 






1 ,6 ,2 


, , , U| Q 0,2,1 






1 1 1 I 1 | | 






1 ,6 ,3 


, , X, Zj 6 3,6,3 


* 


X 


Mask 




FORM LP- 12 












* 


7 


CARRIAGE RETU 


=(N 


m-tAi m-wi I J t SS4 1 X 



